Ako je tekst kako moze da bude datum?
Probaj da ugnjezdis to jos malo ovako:
if IsDate(CDate(txtDate.text))
Ne mozes da radis CDate. CDate("pera") ce da ti javi Type Mismatch, a IsDate("pera") vraca false. Kad IsDate vrati True onda mozes da konvertujes u Date