Microsoft Visial basik, массивы

Пример: Сделать массив из 10 полож. и отриц. чисел. Найти сумму всех отриц. и сумму всех полож. чисел.
Сам массив
Sub m_Vvod danih
Dim m(1 to 10) as integer
Randomize Timer
for i=1 to 10
m(i)=int(rnd()*100)+1-50
next i

Debug.print "Исходный массив"
for i=1 to 10
Debug.print m(i);
next i:Debug.print:debug.print
call obrabotka(m())
end sub

Sub obrabotka(m1() as integer)
s=0
for j=1 to 10
if m1(j)<0 then
s=s+m1(j)
else
s1=s1+m1(j)
end if
next j
' Вывод результата
debug.print "Сумма отриц=";s, "Сумма полож. ="; s1
end sub
_________________

надо наподобии сделать, только задание такое:
Массив из 10 целых чисел, каждое четное число умножить само на себя