Отсортировать десять чисел, записанных на рабочем листе, сортировкой прямого выбора (по убыванию)

For i = 1 To 9
For j = 1 To 9
If a(j) < a(j + 1) Then
t = a(j)
a(j) = a(j + 1)
a(j + 1) = t
End If
Next j
Next i

Public Sub sa()
Dim a(10) As Integer, i As Integer, s As String, k As Integer, s1 As String, t As Integer
Randomize
For i = 1 To 10
a(i) = Int(Rnd * 10)
s = s & a(i)
Next i
 
For i = 1 To 9
For j = 1 To 9
If a(j) < a(j + 1) Then
t = a(j)
a(j) = a(j + 1)
a(j + 1) = t
End If
Next j
Next i
 
For i = 1 To 10
s1 = s1 & a(i)
Next i
 
MsgBox "Массив1" & Chr(13) & s & Chr(13) & "Массив2 " & Chr(13) & s1
End Sub

a(j) > a(j + 1)

Sub P1()
Dim Массив(1 To 10) As Long
Dim i As Integer, j As Integer
Dim MaxЭлемент As Integer, MaxЗначение As Long
'Заполняем массив целыми числами из Excel.
For i = 1 To 10 Step 1
    Массив(i) = Cells(i, 1).Value
Next i
'Собственно сортировка методом Прямой выбор.
For i = 1 To 10 - 1 Step 1
    MaxЗначение = Массив(i): MaxЭлемент = i
    For j = i + 1 To 10 Step 1
        If Массив(j) > MaxЗначение Then
            MaxЗначение = Массив(j): MaxЭлемент = j
        End If
    Next j
    Массив(MaxЭлемент) = Массив(i):  Массив(i) = MaxЗначение
Next i
'Вывод результата Сортировки в Excel.
For i = 1 To 10 Step 1
    Cells(i, 1).Value = Массив(i)
Next i
End Sub