Вычислить минимум из нечётных элементов в каждой чётной строке

Private Sub CommandButton6_Click()
Dim i, j As Integer, min As Integer
min = 32000
For j = 1 To N
For i = 1 To N
If A(i, j) < min And A(i, j) Mod 2 <> 0 And i Mod 2 = 0 Then min = A(i, j)
Next i
Cells(i + 2, j + N + 1) = min
ListBox2.AddItem "Ctroka " & i & _
" - " & min & " min"
Next j
End Sub

Option Explicit
Dim N As Integer
Dim stroka As String
Dim A() As Integer
'Âû÷èñëèòü ìèíèìóì èç íå÷¸òíûõ ýëåìåíòîâ â êàæäîé ÷¸òíîé ñòðîêå
Private Sub CommandButton1_Click() 'Ñôîðìèðîâàòü ìàòðèöó
Dim i As Integer, j As Integer 'òèï ëó÷øå çàäàòü äëÿ êàæäîé ïåðåìåííîé
N = Val(Trim(TextBox1.Text))
ReDim A(1 To N, 1 To N) 'èëè ïåðåðàñõîä ïàìÿòè
For i = 1 To N
    For j = 1 To N
        If i + j < N + 1 Then
            A(i, j) = (-1)
        Else
            A(i, j) = 3
        End If
        If i + j = N + 1 Then
            A(i, j) = 2
        End If
        Cells(i + 2, j) = A(i, j)
    Next j
Next i
End Sub
 
Private Sub CommandButton6_Click()
Dim i As Integer, j As Integer, min As Integer 'òèï ëó÷øå çàäàòü äëÿ êàæäîé ïåðåìåííîé
For i = 2 To N Step 2
    min = 32000
    For j = 1 To N Step 2
        If A(i, j) < min Then min = A(i, j)
    Next j
    Cells(i + 2, N + 1) = min
    ListBox2.AddItem "Ctroka " & i & " - " & min & " min"
Next i
End Sub