Sub ValidDate(ChkDate As String) As Boolean
Dim old As String = DateTime.DeviceDefaultDateFormat
DateTime.DateFormat = "dd.MM.yyyy" ' Please adapt to your needs!
Dim dcf As Int = 0
Dim GoodDate As String
Try
GoodDate = DateTime.DateParse(ChkDate)
Catch
GoodDate = ""
dcf = 1
End Try
DateTime.DateFormat = old
If dcf = 0 Then
Return True
Else
Return False
End If
End Sub