Private Sub Text1_LostFocus()
   Dim time As String
   time = Text1.Text
   If IsDate(Text1.Text) Then
   MsgBox "Uhrzeit eingegeben"
   Else
   MsgBox "Bitte eine Uhrzeit (hh:mm:ss) eingegeben"
   Text1.SetFocus
   End If
End Sub