Проверка корректности ввода даты InputBox

Sub potrebnost()
On Error GoTo 2
Dim b As Date, c as Date, x as Date
a = MsgBox("Сформировать запрос на текущую дату?", 4 + 32)
If a = 6 Then
x = Date
Else
b = InputBox("Введите дату в формате дд.мм.гггг")
If StrPtr(b) = 0 Then Exit Sub
1:
If IsDate(b) And TypeName(b) = "Date" Then
 b = FormatDateTime(b, vbShortDate)
 c = FormatDateTime(Date, vbShortDate)
 If c < b Then
 MsgBox "Ok"
 Else
 GoTo 2
 End If
Else
2:
b = InputBox("Введите дату корректно")
If StrPtr(b) = 0 Then Exit Sub
GoTo 1
End If
End If
End Sub

Sub MyFirstDateCode()
    Dim vData  As String
    vData = InputBox("Введите дату по образцу: дд.мм.гг")
    If vData = "" Then Exit Sub
    If IsDate(vData) = True And vData Like "##.##.##" = True Then
        MsgBox vData
    Else
        MsgBox "Повторите ввод"
    End If
End Sub

Sub MyFirstDateCode()
    Dim vData  As String
    vData = InputBox("Введите дату по образцу: дд.мм.гг")
    If vData = "" Then Exit Sub
    If IsDate(vData) = True And vData Like "##.##.##" = True Then
        MsgBox vData
    Else
        MsgBox "Повторите ввод"
    End If
End Sub

Sub MyFirstDateCode()
    Dim vData  As String
1   vData = InputBox("Введите дату по образцу: дд.мм.гг")
    If vData = "" Then Exit Sub
    If IsDate(vData) = True And vData Like "##.##.##" = True Then
        MsgBox vData
    Else
        MsgBox "Повторите ввод":goto 1
    End If
End Sub

Sub Katin()
    Dim DD As Date
    If Not LogPutDate(DD) Then
        MsgBox "Дата не введена", 16
        Exit Sub
    End If
    MsgBox DD, 64
End Sub
 
Function LogPutDate(InDate As Date) As Boolean
    Dim Dstring As String, Msg As String
    LogPutDate = False: Msg = Empty
    Do
        Dstring = InputBox(Msg + "Введите дату:")
        If Len(Dstring) = 0 Then Exit Function
        LogPutDate = IsDate(Dstring) And Not IsNumeric(Dstring)
        If LogPutDate Then
            InDate = Dstring
            Exit Function
        End If
        Msg = Dstring + " не воспринимается как дата" + vbCr
    Loop
End Function