Visual Basic - Ayuda Operacion con fechas

hola,mi problema es que tengo un text1 con la fecha actual y tengo un text2 donde el usuario introduce la fecha a capturar,entonces debo validar que la fecha introducida no sea menor a la fecha actual,tengo el siguiente codigo que si calcula bien los dias pero no se como hacer para que tome en cuenta tambien el mes y el año,es decir que calcule la operacion con las dos fechas completas,dia,mes y año no nada mas dias ya que si el dia es mayor pero el mes o el año son menores me lo toma como que esta bien porque los dias son mayores:
dim fecha
datediff(("d", text1.text, Text2.Text)
if fecha <0 then msgbox"error"
end if
de antemano muchas gracias y saludos...

If CDate(text1.text) < CDate(Text2.Text) then
...
Else
MsgBox "Debe introducir una fecha mayor que la inicial", vbInformation
End If

Mil gracias....