Egregi

Gira che ti rigira,ho trovato qualcosa per ordinare i punteggi,pero' non li mette in ordine punteggi 14,17,16,10,10,8,7,9,4,1),non sebra molto ordinata!

Dove sbaglio?

i punteggi sono nella text3

codice:
For i = 0 To 9
      Classifica(i) = Text3(i)
Next i

For i = 0 To 9
  For j = i + 1 To 9
     x = Classifica(i)
     y = Classifica(j)

     If Classifica(x) > Classifica(y) Then
        Temp = Classifica(i)
        Classifica(i) = Classifica(j)
        Classifica(j) = Temp
     End If
Next j, i

For i = 0 To 9
   Text3(i) = Classifica(i)
Next i
Ringrazio per una cortese risposta

Saluti.