No se darle la vuelta a este código...

[TheCarmen]

Hola a todos. Tengo un problema con este código. Intento ordenar una lista indefinida de números , el código me funciona pero me los ordena de Menor a Mayor , necesito que sea de Mayor a Menor pero al intentar darle la vuelta ya no me funciona nada. Estoy poniendo (i) donde va (j) y a la inversa pero no se bien como darle la vuelta... O es que el código está mal planteado???

Gracias por vuestra ayuda.


Public Sub ordenarDes(Numbers() As Integer, N As Integer)
' Se ordenan los números enteros de menor a mayor
Dim Temp As Integer
Dim i, j As Integer
For i = 1 To N - 1
For j = i + 1 To N
If Numbers(i) > Numbers(j) Then
Temp = Numbers(i)
Numbers(i) = Numbers(j)
Numbers(j) = Temp
End If
Next j
Next i
' se devuelve el argumento modificado
End Sub