Hab das jetzt nicht getestet, könnte aber so gehen
Sub Queryclose(Source As Notesuidocument, Continue As Variant)
If Not source.FieldGetText( "ProductID_No" ) Like "##.##.#### ##:##:##" Then
Messagebox "Please re-enter the Date/Time" & Chr(13) & "This field must be in the format 01.01.2003 12:00:00",48, "is invalid!"
Call source.GotoField( "DeinDatumsTextFeld" )
Continue = False
Exit Sub
End If
End Sub
P.S. Code korrigiert