Date And Time constraints in a textbox

[johnsonlim026]

Got it ..this is what i do

Public  Function IsDate(ByVal strDate  As String) As Boolean
        If strDate Is Nothing Then
           strDate = ""
        End If
        If strDate.Length > 0 Then
            Dim dteEmpty As Date = Nothing
            Return DateTime.TryParse(strDate, dteEmpty)
        Else
            Return False
        End If