Is input value a Date
Public Class MainClass Public Shared Sub Main() System.Console.WriteLine(IsDate("your input")) End Sub Public Shared Function IsDate(ByVal DateIn As String) As Boolean Dim datDateTime As DateTime Dim blnIsDate As Boolean = True Try datDateTime = DateTime.Parse(DateIn) Catch e As FormatException blnIsDate = False End Try Return blnIsDate End Function End Class