Private Sub TXT_01_Validating()
        If TXT_01.Text.Length < CB_01_MIN.SelectedItem Then
            MsgBox("Feld zu kurz")
            TXT_01.BackColor = Color.Red
            fel = True
            TXT_01.Focus()
        ElseIf TXT_01.Text.Length > CB_01_MAX.SelectedItem Then
            MsgBox("Feld zu Lang")
            TXT_01.BackColor = Color.Red
            fel = True
            TXT_01.Focus()
        Else
            TXT_01.BackColor = Color.White
        End If
    End Sub
 
    Private Sub TXT_02_Validating()
        If TXT_02.Text.Length < CB_02_MIN.SelectedItem Then
            MsgBox("Feld zu kurz")
            TXT_02.BackColor = Color.Red
            fel = True
            TXT_02.Focus()
        ElseIf TXT_01.Text.Length > CB_02_MAX.SelectedItem Then
            MsgBox("Feld zu Lang")
            TXT_02.BackColor = Color.Red
            fel = True
            TXT_01.Focus()
        Else
            TXT_02.BackColor = Color.White
        End If
    End Sub