Pues bien:
Trataré de interpretar la pregunta (validar fecha) de la siguiente forma. Supongamos que lo que quieres es VALIDAR que el contenido de text1 sea efectivamente una fecha. Si es así, desglosará la fecha en día, mes y año, enviando cada valor a distintos cuadros de texto. Si no es fecha, enviar mensaje de error.
Vamos:
if isdate(text1) then
text2=day(text1)
text3=month(text1)
text4=year(text1)
else
msgbox "El valor introducido no es una fecha válida
endif
Espero te sirva.
Salu2.
