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

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