Последовательность из N чисел, упорядочить по убыванию - VB

Формулировка задачи:

Здравствуйте. Очень нужна помощь с одной задачей на тему одномерные массивы. Условие задачи: Заданную последовательность из N чисел, упорядочить по убыванию. Пример по которому нужно решить:

Private Sub Command1_Click()
Dim A(20) As Integer
S=0
N= InputBox("Введите")
For i = 1 To N
A(i) = InputBox("Введите")
Print A(i)
S = S + A(i)
Next
SR=S/N
Print "Зарплата " & SR
End Sub

Пожалуйста помогите с решением! Желательно именно тем способом, что выше. Буду очень очень благодарен.

Решение задачи: «Последовательность из N чисел, упорядочить по убыванию»

textual
                            Листинг программы 
                        

                            Option Explicit
'Желательно именно тем способом, что выше. Буду очень очень благодарен.
Private Sub Form_Activate()
    Me.Height = 90 * 90
    Dim A() As Integer
    Dim i&, j&, aj&, ai#, n&, SR#
    ai = 0
    Randomize Timer
    While n <= 0
        n = Val(InputBox("Введите размер массива от 0 до 10", , 10))
    Wend
    ReDim A(1 To n)
    For i = 1 To n
        A(i) = InputBox("Введите число для индекса " & i, , Rnd * 10 \ 1)
        Print A(i)
        ai = ai + A(i)
    Next
    'Упорядочивание (пузырьковая сортировка)
    For i = 1 To UBound(A)
        For j = 1 To UBound(A) - 1
            If A(j) > A(j + 1) Then
                aj = A(j)
                A(j) = A(j + 1)
                A(j + 1) = aj
            End If
        Next j
    Next i
    
    Print vbLf & "Теперь по порядку"
    For i = 1 To UBound(A): Print A(i): Next
        
 
    SR = ai / n
    Print "Зарплата " & SR
End Sub
                        