Que yo sepa no existe ninguna funcion que haga exactamente eso, pero podes usar
IsDate(cadena), lo que hace la funcion es determinar si la fecha es correcta, me refiero a numero del mes, el numero del dia segun el mes, y el año, si todo esta bien devuelve True, si hay algo mal, ya sea el dia el mes o el año devolvera False. Podes poner una condicion, algo asi:
Código:
If IsDate(Text1) = True Then
MsgBox "Fecha Correcta"
Else
MsgBox "Fecha Incorrecta"
End If
Saludos
