Написать программку в VBA, которая меняет местами малый и заключительный элемент

' Объявляем массив

Dim Arr(1 To 10) As Integer

' Наполняем массив значениями от 1 до 15

Dim min, max As Integer

min = 1

max = 15

Randomize

For i = LBound(Arr) To UBound(Arr)

   Arr(i) = Int((max - min + 1) * Rnd + min)

Next

' Выводим MsgBox с содержимым массива

Dim Str As String

Str = ""

For i = LBound(Arr) To UBound(Arr)

   Str = Str + CStr(Arr(i)) + " "

Next

MsgBox (Str)

' Обретаем индекс минимального элемента

Dim minIndex As Integer

minIndex = LBound(Arr)

For i = LBound(Arr) To UBound(Arr)

   If Arr(i) lt; Arr(minIndex) Then

       minIndex = i

   End If

Next

' Меняем местами малый элемент и заключительный

Dim a As Integer

a = Arr(minIndex)

Arr(minIndex) = Arr(UBound(Arr))

Arr(UBound(Arr)) = a

' Выводим MsgBox с содержимым массива

Str = ""

For i = LBound(Arr) To UBound(Arr)

   Str = Str + CStr(Arr(i)) + " "

Next

MsgBox (Str)