' txtDate <-- Das Textfeld, das überprüft werden soll
If Len(txtDate) = 10 Then
If Format(txtDate, "dd.mm.yyyy") = txtDate Then
' Alles in Ordnung ....
Else: MsgBox "Sie haben das Datum in einem falschen Format eingegeben!!"
End If
Else: MsgBox "Sie haben kein gültiges Datum eingegeben!"
End If