Квадратичная матрица

[UnMajesty]

Задана квадратичная матрица n*n целых чисел. Подсчитать произведение непарных чисел.
1)Выше главной диагонали.
2)Ниже её.
3) Двух из выше указанных вариантов.

Не знаю как указать произведение непарных чисел, и 2-3 пункты. То, до чего у меня получилось додуматься, написано ниже.

Прошу помочь отредактировать мою программку.

Private Sub CommandButton1_Click()
Dim n As Integer, A() As Integer, i As Integer
Dim j As Integer, S As Integer, K As Integer
Dim SA As Single
Dim ST As Single
n = TextBox1.Text
ReDim A(n, n): ST = " "
For i = 1 To n
For j = 1 To n
A(i, j) = InputBox("a(" & i & "," & j & ")")
ST = S & A(i, j) & vbTab
Next j
ST = ST & vbCrLf: Next i
TextBox2.Text = ST
S = 0: K = 0
For i = 1 To n
For j = i To n
If A(i, j) Mod 2 = 0 Then
S = S + A(i, j)
K = K + 1
Next j, i
If K = 0 Then
TextBox3.Text = "Нет кратных 2"
Else
SA = S
TextBox4 , Text = SA
End If
End Sub

[IgorGO]

pup = 0: pdn = 0
for i = 1 to n
  for j = 1 to n
    if a(i,j) mod 2 then
     if j<i then if pdn = 0 then pdn = a(i,j) else pdn = pdn*a(i,j)
     if j>i then if pup = 0 then pup = a(i,j) else pup = pup*a(i,j)
    end if
next j, i
msgbox "Multiply:" & chr(10) & "     above = " & pup & chr(10) & "     under = " & pdn & chr(10) & "above & under = " & pup*pdn