Dim dt As DateTime = TextBox1.Text

                dt = CDate(TextBox1.Text)

               	dt = DateTime.Parse(TextBox1.Text)

		If DateTime.TryParse(TextBox1.Text, dt) Then
			MsgBox("OK!")
                Else
                        MsgBox("Falsch!")
		End If

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist