Проверить на самом ли деле строка задает дату

Option Explicit
Private Sub Комманда1_Click()
Dim A() As String
Dim S() As String
S = Split("31/12/1000/3600", "/") ' года от 1000-до3600 поставить любые
Dim J, OT
OT = "Может быть датой"
A = Split(Текст1.Text, "/")
        For J = 0 To 2
                Select Case J
                Case 0, 1
                If Val(A(J)) > Val(S(J)) Then OT = "Не может быть датой"
                Case 2
                If Val(A(J)) < Val(S(J)) Or Val(A(J)) > Val(S(J + 1)) Then OT = "Не может быть датой"
                End Select
        Next J
MsgBox OT
End Sub

Private Sub a()
On Error GoTo Err_
'b = CDate("äâåíàäöàòîå апреля ñåãî ãîäà")
'b = CDate("12/04/10")
'b = CDate("12 квітень 2010")
 
b = CDate("12.04.10")
MsgBox b
 
Exit_:
    Exit Sub
Err_:
    MsgBox IIf(Err.Number = 13, "ýòî íå äàòà!", Err.Description)   ' Type mismatch
    Resume Exit_
End Sub

b = CDate("35/04/10")

CDate("4:35:47 PM")
CDate(6589)

Private Sub dat()
'd = "äâåíàäöàòîå àïðåëÿ ñåãî ãîäà"
'd = "12 êâ³òåíü 2010"
'd = "-12/-04/2010"
'd = "1,2/5.4/2010"
'd = "35/04/10"
'd = "12/04/10"
d = "12/04/2010"
dd = Split(d, "/")
If IsDate(d) And UBound(dd) = 2 Then
    If IsNumeric(dd(0)) And IsNumeric(dd(1)) And IsNumeric(dd(2)) Then
        If CDate(d) = DateSerial(dd(2), dd(1), dd(0)) Then
            MsgBox CDate(d)
            Exit Sub
        End If
    End If
End If
MsgBox "ýòî íå ïîõîæå íà äàòó ÄÄ/ÌÌ/ÃÃÃÃ"
End Sub

CDate