Visual Basic - comprobar que el text sea fecha

hola, estoy haciendo un programa en el cual necesito introducir en un cuadro de texto una fecha, debo comprobarlo. He probado con la propiedad dataformat a ponerle date y si le introduzco un numero suelto no me dice que el dato introducido no es valido, me pasa al siguiente cuadro de texto. A ver si alguien me puede decir como puedo controlar este dato. Muchisimas gracias y espero vuestras repuestas. Hasta pronto.

Prueba con la instrucción lsDate así por ejemplo:

if lsDate(Text1.Text) Then 'ldate comprueba si es fecha
Dato =CDate(Text1.Text) 'Cdate convierte el valor en uno del tipo Date
End if

Saludos,
Miguel !

Hola Miguel, he probado lo que tu me has dicho pero al ejecutarlo me da un error "Error de compilacion Procedimiento Sub o Function no definido".
A ver si me dices como lo defino y donde. Muchisimas gracias.