Private Sub Command1_Click()
 
Select Case DateDiff("d", Format(Date, "dd.mm.yyyy"), Text1.Text)
Case Is > 0
     MsgBox "Datum ist noch nicht abgelaufen", , "Ergebnis"
Case Is < 0
     MsgBox "Datum ist abgelaufen", , "Ergebnis"
Case Is = 0
     MsgBox "Datum ist heute", , "Ergebnis"
End Select
 
End Sub