Упорядочить массив из N элементов по убыванию VBA

Question

Sub SummOtr() 
Dim M%, N%, i%, j%, S! ' определяем переменные M, N, i, j как целые; S - обычной точнoсти 
Open "F:\Kursovaya rabota Ivanov\matr.txt" For Input As #1 'открываем файл для ввода 
Open "F:\Kursovaya rabota Ivanov\rez.txt" For Output As #2 'открываем файл для вывода 
Input #1, M, N 'считываем из файла размерность матрицы 
Print #2, "ИСХОДНАЯ МАТРИЦА" 'выводим в файл текст - заголовок 
ReDim A!(M, N) 'определяем динамический массив обычной точнoсти 
For i = 1 To M 'открываем цикл 
For j = 1 To N 'открываем цикл 
Input #1, A(i, j) 'считываем из файла следующий элемент матрицы 
Print #2, Tab(j * 5); A(i, j); 'выводим следующий элемент матрицы 
Next j 'закрываем цикл 
Print #2, 'выводим в файл пустую строку 
Next i 'закрываем цикл 
Close #1 'закрываем файл 
S = 0 'обнуляем сумму 
For i = 1 To M 'открываем цикл 
For j = 1 To N 'открываем цикл 
If A(i, j) < 0 Then S = S + A(i, j) 'накапливаем сумму отрицательных элементов 
Next j 'закрываем цикл 
Next i 'закрываем цикл 
Print #2, "Сумма отрицательных чисел S ="; S 'выводим в файл результат 
Close #2 'закрываем файл 
MsgBox "Смотри файл F:\Kursovaya rabota Ivanov\rez.txt" 'сообщение о завершении работы 
End Sub 
ПО ЭТОМУ ПРИМЕРУ ЧТОБ ВЫВОДИЛО КАК В ЭТОМ ЗАДАНИИ

Оксана Шакирова · Accepted Answer

Сортировка чисел в массиве - гугли "Пузырьковая сортировка". 
Основная идея 
For i=1 To N-1 
For j=i+1 To N 
If A(i) < A(j) Then ' Если одно число меньше другого 
Q = A(i) ' Меняем 
A(i) = A(j) ' их 
A(j) = Q ' местами 
End If ' Конец If 
Next j 
Next i 
 
В результате числа будут отсортированы от большего к меньшему 
Ввод и вывод и прочее оформление сам добавь, как в моей программе, которую я тебе уже писал.