Hi Don,

You will have to use the 'IsDate' funcion:

If IsDate(TextBox1) = False Then
MsgBox "Not a valid date."
Else
MsgBox "Valid date"
End If



------------------------------------------------
~~ Message posted from http://www.ExcelTip.com/
~~ View and post usenet messages directly from http://www.ExcelForum.com/