codice:
Text3(0) = somma1 + sommax + somma2 + somma3
Text3(1) = somma4 + somma5 + somma6 + somma7
Text3(2) = somma8 + somma9 + somma10 + somma11
Text3(3) = somma12 + somma13 + somma14 + somma15
Text3(4) = somma16 + somma17 + somma18 + somma19
Text3(5) = somma20 + somma21 + somma22 + somma23
Text3(6) = somma24 + somma25 + somma26 + somma27
Text3(7) = somma28 + somma29 + somma30 + somma31
Text3(8) = somma32 + somma33 + somma34 + somma35
Text3(9) = somma36 + somma37 + somma38 + somma39
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