Как вычислить произведение отрицательных четных элементов массива

Private Sub Command1_Click()
Dim A() As Integer
Dim B() As Integer
Dim i, pos, Sum, Min  As Integer, j As Integer, n As Integer
Dim prois As Double
Randomize 'Иницилизация генератора случайных чисел
Me.Cls       'Очищаем форму
n = InputBox("Введите размер массива", , 20)
ReDim A(1 To n)    '  размер массива
Print "Исходный массив "
Print
For i = 1 To n
       A(i) = Int(Rnd * 21 - 8)  'Заполняем случайными числами
       
       Print A(i) & ", ";        'Выводим на печать
Next i
 
' находим произведение
        For i = 1 To n
        If A(i) < 0 And A(i) / 1 <> (i) \ 1 Then prois = prois * A(i)
        Next i
        Print
 
 
Print "сумма = "; Sum
'находим минимальный
 Min = A(1)
        For i = 1 To n
            If A(i) > Min Then pos = i: Min = A(i)
        Next i
        Print "Минимальный "; pos
'сумма после  Min
Sum = 1
        For i = 1 If pos
            Sum = Sum + A(i)
        Next i
Print "сумма = "; Sum
 
 
 
 
 
End Sub

prois=1

If (A(i) < 0) And ((A(i) / 1) = (a(i) \ 1)) Then prois = prois * A(i)

Min = A(1):pos=1

Sum = 0 'или вообще убрать

For i = pos+1 to n