Dim Datum1 as long
Dim Datum2 as long
Datum1=VAL(Format(Date1,"YYYYMMDD"))
Datum2=VAL(Format(Date2,"YYYYMMDD"))
DIFF=Datum1-Datum2
Select case DIFF
  Case 0
     MsgBox "Datums-Werte gleich"
  Case>0
     MsgBox "Datum1 grösser"
  Case<0
     MsgBox "Datum2 grösser"
End select

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)