Private Sub cmd_Ergebnis_anzeigen_Click()
'Datum vom Benutzer
Dim vDatum As String
Dim Teil() As String
Teil = Split(txt_Datumangabe.Text, ".")
vDatum = Teil(2) & Teil(1) & Teil(0)
 
'Systemdatum
Dim vDatum2 As String
Dim Teil2() As String
Teil2 = Split(Format(Date, "dd.mm.yy"), ".")
vDatum2 = Teil2(2) & Teil2(1) & Teil2(0)
 
Select Case vDatum
Case Is = vDatum2: MsgBox "Heutiges Datum", , "Ergebnis"
Case Is < vDatum2: MsgBox "Altes Datum", , "Ergebnis"
Case Is > vDatum2: MsgBox "Neues Datum", , "Ergebnis"
End Select
 
End Sub