Better still, use the VB IsDate() function. Include your string in this function, which will return True if the string is a valid date and False if not.

Private Sub ..........

Dim MyDateString As String

....Get the date string ....

If IsDate(MyDateString) Then
MsgBox "Gosh! It's a date!"
Else
MsgBox "Sorry, fella, you got it wrong"
Endif


End Sub



This way you don't have to generate and then trap an error.