Input Box Validation?

[BIGTONE559]

Greetings,

I have an inputbox and i'm trying to make sure data entered is in the following format:


mm-dd-yy

if it is not in this format i would like for what was entered to be in a msgbox along with a friendly notice.

thanks

 

[AlphaFrog]

    Dim strEntry As String, MyDate As Date
Retry:
    strEntry = Application.InputBox("Enter date using the format: mm-dd-yy", "Enter Date", Type:=2)
    If strEntry = "False" Then Exit Sub 'User canceled
    If strEntry Like "##-##-##" And IsDate(strEntry) Then
        MyDate = DateValue(strEntry)
    Else
        MsgBox "Please enter a valid date using the format mm-dd-yy ", vbExclamation, "Invalid Date Entry"
        GoTo Retry
    End If

 

[BIGTONE559]

    Dim strEntry As String, MyDate As Date
Retry:
    strEntry = Application.InputBox("Enter date using the format: mm-dd-yy", "Enter Date", Type:=2)
    If strEntry = "False" Then Exit Sub 'User canceled
    If strEntry Like "##-##-##" And IsDate(strEntry) Then
        MyDate = DateValue(strEntry)
    Else
        MsgBox "Please enter a valid date using the format mm-dd-yy ", vbExclamation, "Invalid Date Entry"
        GoTo Retry
    End If

thanks alphafrog worked perfectly