Imports System.Threading Imports System.Globalization Public dateFormat As String = "dd/MM/yy" Function checkDate(ByVal c As String) As Boolean Dim d As Date Return Date.TryParseExact(c, dateFormat, CultureInfo.CurrentCulture, DateTimeStyles.AssumeLocal, d) End Function