'Eingabezeiten festlegen
        Dim startEingabeDate As New Date(Now.Year, Now.Month, Now.Day, 7, 30, 0)
        Dim endeEingabeDate As New Date(Now.Year, Now.Month, Now.Day, 20, 0, 0)
 
        datBeginnzeitTextBox.Text = startEingabeDate.ToString
        datEndzeitTextBox.Text = endeEingabeDate.ToString
 
        'Die Abfrage habe ich nun so geschrieben
        If DateTime.Now >= startEingabeDate And DateTime.Now <= _
          endeEingabeDate Then
            MessageBox.Show("Du darfst noch Daten einschreiben!")
 
        Else
            MessageBox.Show("Du darfst keine Daten mehr einschreiben!")
 
        End If