Dim ia() As Integer = {1, 4, 5, 6, 35, 3224, 65, 43, 4, 6, 4, 3, 5, 6, 4, 3, 5, _
  6, 345, 23, 54, 34, 2, 31, 45, 645, 23, 454} '  symbolisch für die 
' TextBox.Text - Werte
        ia.Sort(ia) ' sortieren
        ia.Reverse(ia) ' umkehren
        Dim Ergebnis As Integer ' Ergebnis deklarieren
        For i As Integer = 0 To 21 ' bis 21 laufen lassen --> wegen 0
            Ergebnis += ia(i) ' immer addieren
        Next
        Console.WriteLine(Ergebnis) ' ausgeben
        Console.ReadLine()

Dim ia() As Integer = {1, 4, 5, 6, 35, 3224, 65, 43, 4, 6, 4, 3, 5, 6, 4, 3, 5, _
  6, 345, 23, 54, 34, 2, 31, 45, 645, 23, 454} '  symbolisch für die 
' TextBox.Text - Werte
        ia.Sort(ia) ' sortieren
        ia.Reverse(ia) ' umkehren
' Das schreibe ich jetzt einmal aus der Hand ...
For Each TB2 In Me.Panel2.Controls
                If TypeOf TB2 Is TextBox Then
                    If TB2.Enabled = True Then
' meine Idee
If Cint(TB2.Text) > ia(21) Then TB2.Backcolor = Color.Red ' wenn der TextBox 
' - Wert größer als der kleinste der 22 Werte ist, dann kann die TextBox rot 
' markiert werden
                    End If
                End If
            Next

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