If Checked = "False" Then
CheckedBY = ""
CheckedBYdate = "01/01/1601"
End If
iProperties.Value("Status", "Checked By") = CheckedBY
iProperties.Value("Status", "Checked Date") = CheckedBYdate
InventorVb.DocumentUpdate()

oDrawingsbeenCheckedBy = 0
If CheckedBY IsNot "" Then
oDrawingsbeenCheckedBy = 1
End If

If oDrawingsbeenCheckedBy = 1 Then
Return
End If

If Checked = "False" Then
Return
End If

If CheckedBY = "" Then
CheckName= ThisApplication.GeneralOptions.UserName
CheckedBY = CheckName
CheckedBYdate = Now
End If
iProperties.Value("Status", "Checked By") = CheckedBY
iProperties.Value("Status", "Checked Date") = CheckedBYdate
InventorVb.DocumentUpdate()