Private Function isDate(dateString As String) As Boolean
  On Error GoTo NoDate
  
  Dim test As Date
  test = DateValue(dateString)
  isDate = True
  Exit Function
  
NoDate:
  isDate = False
End Function

This method checks whether a given string is a valid date (current regional settings are used)

isDate(String) As Boolean

date

Visual Basic