Сложности в написании программы - VBA

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

Задание про подпрограммы, функции. vba Заменить отрицательные элементы линейного массива их модулями, не пользуясь стандартной функцией вычисления модуля. Подсчитать количество произведенных замен. Кинули нас в пекло под конец года, темы не проходили. Ломал голову, но безуспешно. Помогите с написанием программы в общем. Киньте советы или части кода. Можно и код, если завалялся.

Решение задачи: «Сложности в написании программы»

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

                            Sub tt()
Dim a(1 To 5), i As Long, n As Long
 
a(1) = 5
a(2) = -3
a(3) = 4
a(4) = 1
a(5) = -5
 
MsgBox Join(a, vbNewLine)
 
For i = LBound(a) To UBound(a)
If a(i) < 0 Then a(i) = -a(i): n = n + 1
Next
 
MsgBox Join(a, vbNewLine) & vbNewLine & "Всего замен: " & n
 
End Sub
                        