Sub Command1_Click () 
text4.Text = "" 
Dim t, datum, TestDate ' Variablen deklarieren. 
t = text1.Text & "." & text2.Text & "." & text3.Text 
Do 
TestDate = t ' Datum holen. 
Loop Until IsDate(TestDate)
datum = CVDate(TestDate)
Select Case Weekday(datum) 
Case 1 
text4.Text = "Sonntag" 
Case 2 
text4.Text = "Montag" 
Case 3 
text4.Text = "Dienstag" 
Case 4 
text4.Text = "Mittwoch" 
Case 5 
text4.Text = "Donnerstag" 
Case 6 
text4.Text = "Freitag" 
Case 7 
text4.Text = "Samstag" 
End Select 
befehl3.SetFocus 
End Sub