Dim myDate1 As Date
        Dim myDate2 As Date
        Date.TryParse(Optionen.TextBox11.Text, myDate1)
        Date.TryParse(Optionen.TextBox10.Text, myDate2)
 
        If (DateTime.Now >= myDate1 _
          And DateTime.Now <= myDate2) _
          Then
            MsgBox("Erfolgreich!")
            Pruefen = True
        Else
            MsgBox("Da stimmt was nicht!")
            Pruefen = False
        End If