Определение каждой нечетной строки минимального элемента матрицы - VB

Option Explicit
 
Private Sub Form_Activate()
    Dim n&, m&, arr&(10, 20), min&, max&
    'Заполняем матрицу случайными числами
    Randomize
    For n = 0 To 10: For m = 0 To 20
            arr(n, m) = 100 + Fix(Rnd * 100)
    Next: Next
    'Находим самое большое
    For n = 0 To 10: For m = 0 To 20
            If n Mod 2 And arr(n, m) > max Then max = arr(n, m)
    Next: Next
    min = max
    For n = 0 To 10: For m = 0 To 20
            If n Mod 2 And arr(n, m) < min Then min = arr(n, m)
        Next
        If n Mod 2 Then Print "Строка " & n & " = " & min 'Вывод минимального в нечетной строке
        min = max
    Next
End Sub