Prueba esto:
Private Sub Command1_Click()
Dim t0 As Variant, t1 As Variant
t0 = DateValue(Text1)
t1 = DateValue(Text2)
If Sgn(t0 - t1) = -1 Then
MsgBox "La fecha mayor es " & t1
Else
MsgBox "La fecha mayor es " & t0
End If
End Sub
Me avisas si te sirvió...
