Поменять местами максимум и мининум в массиве и упорядочить массив по возрастанию - VB

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

Помогите пожалуйста решить задачи 1)Найти максимум в массиве 2)Найти минимум в массиве 3)Поменять местами максимум и мининум в массиве и упорядочить массив по возрастанию Это очень срочно. Желательно в VBA но можно и в других

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

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

                            Dim a(1 To 10), mi, ma, mi1, ma1, m As Integer
Dim s As String
List1.Clear
Randomize
s = ""
' создаем массив
For i = 1 To 10
 a(i) = Int(Rnd(1) * 50 + 1) 
 s = s + " " + Str(a(i))
Next i
'вывод созданного массива
List1.AddItem s: s = "": List1.AddItem ""
' ищем максимальный и минимальный элемент массива
mi1 = a(1): ma1 = a(1): mi = 1: ma = 1
For i = 2 To 10
 If a(i) < mi1 Then mi = i: mi1 = a(i)
 If a(i) > ma1 Then ma = i: ma1 = a(i)
Next i
'вывод максимума и миниума
s = Str(a(mi)) & Str(a(ma))
List1.AddItem s: s = "": List1.AddItem ""
'меняем местами максимальный и минимальный элементы
a(mi) = ma1: a(ma) = mi1
For i = 1 To 10
 s = s + " " + Str(a(i))
Next i
'вывод массива измененного массива
List1.AddItem s: s = "": List1.AddItem ""
'сортируем элементы массива по возрастанию
For i = 1 To 10
For j = 1 To 10
 If a(j) > a(i) Then m = a(j): a(j) = a(i): a(i) = m
Next j
Next i
For i = 1 To 10
 s = s + " " + Str(a(i))
Next i
'вывод отсортированного массива
List1.AddItem s
                        