A parte il fatto che nel confronto si potrebbe usare DateValue() quindi:
codice:
If DateValue(d1) > DateValue(d2) Then
   ....
else
   ....
End If
..a me il confronto funziona benissimo, nessun malfunzionamento.
Ho Win XP e VB6.