Esta es una función que hice hace poco:
Código:
Public Function Fecha_Correcta(ByVal Fecha as String) As Boolean
Dim bolCorrecta As Boolean
Dim strFecha() As String = Fecha.Split("/"c)
If strFecha.Length < 3 Then
bolCorrecta = False
ElseIf Not IsDate(strFecha(2) & "-" & strFecha(1) & "-" & strFecha(0)) Then
bolCorrecta = False
Else
bolCorrecta = True
End If
Return bolCorrecta
End Function
A ver si alguien se anima y la trata de explotar, jeje
