Private Sub ZeitBereichTest(ByVal Sender As Object, ByVal TestZeit As String)
        Dim TestZeit_ As TimeSpan = TimeSpan.Parse(TestZeit)
 
        For Index As Integer = 1 To 5
            ' Prüfen ob eine TestZeit in einem vergebenen Bereich liegt
            ' Bedingung: TestZeit > EinAlt ODER TestZeit < AusAlt
            If TestZeit_ > Schaltzeit(Index, 1) Or TestZeit_ < Schaltzeit( _
              Index, 2) Then
                DirectCast(Sender, TextBox).Text = "0:00"
                Dim MsgWin = New MsgWindow
                With MsgWin
                    .MsgFensterStil = MsgWindow.MsgTyp_.Fehler
                    .Info = "Zeitüberschneidung"
                    .Text = _
                    "Die Eingabe überschneidet sich mit" & vbCrLf & _
                    "einer Zeit in Schaltzeit: " & Index.ToString & vbCrLf & _
                    "Ihre Eingabe wurde auf '0:00' zurückgesetzt"
                    .ShowDialog()
                End With
                BelegtZeit = True
 
            End If
            Exit For ' FOR beim 1. Auftreten des Fehlers verlassen
        Next
End Sub

'
'///
'
Es gibt keine dummen Fragen. Dumm ist nur der, der nicht fragt sondern dumme Antworten gibt!