Date validation does not work on text box

[akmughal]

Hi there,

I'm trying to run a date validation on text box but it does not work the way it should work. Here is the code. Could someone help?


Private Sub dobtbox_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If dobtbox = vbEmptyString Then Exit Sub
If IsDate(dobtbox) Then
dobtbox = Format(dobtbox, "mm/dd/yyyy")
Else
MsgBox " Please enter a valid date", vbCritical
End If
End Sub

Thank you

[protonLeah]

No examples of dates that don't work, so....

[akmughal]

Text box take any date format and any other alfa numeric text without checking the date format.
I can enter ‘2015/12/14’ or even I can enter ‘hello’ in text box and IF condition doesn’t work.

[jindon]

I would use 3 comboboxes to select Year, Month, Day, so that you don't need to worry about "validation"....