If Approved = "False" Then
ApprovedBY = ""
ApprovedBYdate = "01/01/1601"
End If
iProperties.Value("Status", "Eng. Approved By") = ApprovedBY
iProperties.Value("Status", "Eng. Approved Date") = ApprovedBYdate
InventorVb.DocumentUpdate()

oDrawingsbeenAPPROVEDBy = 0
If ApprovedBY IsNot "" Then
oDrawingsbeenAPPROVEDBy = 1
End If

If oDrawingsbeenAPPROVEDBy = 1 Then
Return
End If

If Approved = "False" Then
Return
End If

If ApprovedBY = "" Then
CheckName= ThisApplication.GeneralOptions.UserName
ApprovedBY = CheckName
ApprovedBYdate = Now
End If

iProperties.Value("Status", "Eng. Approved By") = ApprovedBY
iProperties.Value("Status", "Eng. Approved Date") = ApprovedBYdate
iLogicVb.UpdateWhenDone = True