e se definisci due variabili data?

'-------------------------------
dim data1 as date
dim now1 as date

data1 = text_data.text

'aggiunge un giorno a now
now1= dateadd("d",now)

if data1 >= now or data1 < #08/06/199# then msgbox "errore!!"
'--------------------------------------