' Vor die For Each --> wegen Gültigkeitsbereich
Dim ze As Boolean = False
 
' For Each und CO.
 
If CInt(TB2.Text) >= Array(22) Then ' Ich schreibe jetzt einmal wieder ein 
' Ergänzung aus der Hand
            If CInt(TB2.Text) = Array(22) Then ' abfangen
                If ze = False Then ' Einmal auf True wird die TB2 nicht mehr 
                ' rot gemacht.
                    ze = True ' sperren
                    TB2.BackColor = Color.Red
                End If
                TB2.BackColor = Color.Red
            End If
            TB2.BackColor = Color.Red
        End If

MfG
Visual Studio .Net Team Suite 2008 - Meine neue lieblings IDE