ma devo dare un errore se la data immessa č now +1

ho fatto :

If Trim(TXT_Data.Text) >= CDate(Trim(Day(Now)) + 1 & "/" & Trim(Month(Now)) & "/" & Trim(Year(Now))) Then ' _
'

MsgBox "Attenzione data non valida", vbCritical, App.Title

mi da sempre errre
se txt_data = 14/12/2002 invece non dovrebbe darmi errore

dovrebber anche verificare che CDate(Trim(TXT_Data)) <= CDate("8/6/1999") Then mgbox .....