As ss7thirty said you should use the system.Array.Sort, then use the system.array.reverse to put filp the sort and make your largest number the (0) index
As here
'If your starting list is known as numbers
Dim maxvalue AsInteger
Dim ary AsInteger() = {10, 20, 56, 87, 54, 1, 2, 14, 22}...