ich blicke es nicht.
In txtDatum steht der 01.02.2016 drin, also eindeutig kleiner als heute.
If txtDatum < CDate(Date) Then
MsgBox "txtDatum ist kleiner"
End If
Erst wenn ich txtDatum > CDate(Date) oder txtDatum > Date schreibe, kommt meine MsgBox.
Sorry, ich habe mich jetzt ganz unglücklich gegoogelt, finde aber den Fehler nicht.
LG
Edwin