Zeitpunkt = "28.01.1987 20:00"
DateForm = "yyyymmdd hh:mm"
T_Jetzt = Format(Now, DateForm)
T_Vergleich = Format(Zeitpunkt, DateForm)
If T_Jetzt > T_Vergleich Then
  MsgBox Zeitpunkt + " liegt in der Vergangenheit"
End If

dbayerTo be is to do (Rene Descartes)To do is to be (Kant / Nietzsche / Sartre u.a.)Do be do be dooo (Frank Sinatra, Strangers in the Night)