Private Sub Command1_Click()
Dim Tage As Integer
 
  If IsDate(Text1.Text) Then
    Tage = DateDiff("d", Text1.Text, Date, vbMonday)
    MsgBox Tage
  Else
    MsgBox "Bitte geben Sie ein gültiges Datum ein." & vbCrLf & "Format:" & _
      "dd.mm.yyyy"
  End If
End Sub