В массиве из 10 пол./отриц. чисел отобрать всё четные и умножить их между собой - VB

Sub LastLab()
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)
a = 1
b = 1E+300
Debug.Print "Результат"
For i = 1 To 10
If a <= m1(i) And m1(i) <= b Then
S = S + m1(i)
Debug.Print m1(i);
End If
Next i
Debug.Print
Debug.Print "Сумма ="; S
End Sub