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.
