Imputing a date using a MsgBox

Sub EnterDate()
    Dim res
    Do
        res = Application.InputBox("Enter A Date")
        If IsDate(res) Then
            ActiveCell.Value = DateValue(res)
            Exit Sub
        End If
        MsgBox "Invalid date", vbCritical, "Try again"
    Loop While Not IsDate(res)
End Sub

Sub GetDate()
    Dim oWs As Worksheet
    Dim vDte As Variant
    Set oWs = Sheets("your_sheet_name _here")
TryAgain:
    With oWs
        ''/// enter your required date format
        vDte = InputBox("Please Enter the Date *Must be format mm/dd/yyyy*", "Enter Date")
        If vDte = "" Then
            MsgBox ("You did not enter a date!"), vbCritical, "INPUT ERROR"
            GoTo TryAgain    ''/// this will force a retry
            ''/// check that a date has been entered
            If Not IsDate(vDte) Then
                MsgBox ("You did not enter the correct format!"), vbCritical, "INPUT ERROR"
                GoTo TryAgain
            End If
        Else    ''enters date to A1
            oWs.Range("A1").Value = CDate(vDte)
        End If
    End With
End Sub