Dim Array() As Integer = {a, b, c, d, f, g, h, i, j, k, l, m, n, o, p, q, r, s, _
  t, u, v, w, x, y, z}
            System.Array.Sort(Array)
            System.Array.Reverse(Array)
 
            For Anzahl As Integer = 0 To 21      'bis 21 laufen lassen --> 
            ' wegen 0
                summe1 += Array(Anzahl)
            Next
 
            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
                            TB2.BackColor = Color.Red   
                        End If
                    End If
                End If
            Next