dim myDate as date
if isDate(myTextbox.text) then
myDate = cDate(myTextbox.Text)
end if
if myDate < now() then
messagebox.show("ERROR! Date is old and stuff!", "date error", MessageBoxButtons.YesNoCancel, MessageBoxIcon.Exclamation)
else
'do stuff
end if
try that. let me know if this helped.
hayt