Напишите пожалуйста код или дайте совет - VB

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

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

Решение задачи: «Напишите пожалуйста код или дайте совет»

textual
                            Листинг программы 
                        
                            If A(i) < 0 Then A(i) = -A(i)