Отсортировать по возрастанию студентов по оценкам - VB

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

Нужно было рассчитать средний балл, студента, я рассчитала у меня все получилось.

Private Sub Command1_Click()
Text21.Text = (CInt(Text6.Text) + CInt(Text11.Text) + CInt(Text16.Text)) / 3
Text22.Text = (CInt(Text7.Text) + CInt(Text12.Text) + CInt(Text17.Text)) / 3
Text23.Text = (CInt(Text8.Text) + CInt(Text13.Text) + CInt(Text18.Text)) / 3
Text24.Text = (CInt(Text9.Text) + CInt(Text14.Text) + CInt(Text19.Text)) / 3
Text25.Text = (CInt(Text10.Text) + CInt(Text15.Text) + CInt(Text20.Text)) / 3
End Sub

Теперь нужно чтобы нажимая на кнопку Сортировка, эти средние оценки отсортировались по возрастанию, как это сделать? Помогите пожалуйста

Решение задачи: «Отсортировать по возрастанию студентов по оценкам»

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

                            'Процедура для сортировки массива методом пузырька
'Входные параметры:
'    Arr -   сортируемый массив.
'            Нумерация элементов от 0 до N-1
'    N   -   размер массива
'
'Выходные параметры:
'    Arr -   массив, упорядоченный по возрастанию.
'            Нумерация элементов от 0 до N-1
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Public Sub BubbleSort(ByRef Arr() As Double, ByRef N As Long)
    Dim I As Long
    Dim J As Long
    Dim Tmp As Double
 
    For i=0# To N-1# Step 1
        For j=0# To n-2#-i Step 1
            If Arr(j)>Arr(j+1#) then
                Tmp = Arr(j)
                Arr(j) = Arr(j+1#)
                Arr(j+1#) = Tmp
            End If
        Next j
    Next i
End Sub
                        