For Each TB2 In Me.Panel2.Controls
                If TypeOf TB2 Is TextBox Then
                    If TB2.Enabled = True Then
                        If CInt(TB2.Text) >= Array(22) Then
                            zaehler4 += 1
                            If zaehler4 > 22 Then
                                Exit For
                            Else
                                TB2.BackColor = Color.Red  
                            End If
                        End If
                    End If
                End If
            Next