Private Sub txtDate_Validate(Cancel As Boolean)
  If txtDate.CheckDate = False Then
    Cancel = True
    MsgBox "Bitte geben Sie ein gültiges Datum ein!"
  End If
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de