Двумерный массив из 6 строк и 3 столбцов - VB (60925)

Private Sub Command1_Click()
Cls
max = 0
n = 0
For i = 1 To 6
    For j = 1 To 3
    a(i, j) = Round(CDbl(Rnd * 10 + 2), 0)
    t = t * a(i, j)
    If a(i, j) > max Then
    max = a(i, j)
    m_i = i
    m_j = j
    End If
    If a(i, j) Mod 2 = 0 Then n = n + 1
    Print a(i, j); vbTab;
    Next j
Print vbLf
Next i
Print "Элементы 2-го столбца:"
For i = 1 To 6
    Print a(i, 2)
Next i
Print vbLf
Print "Элементы 4-ой строки:"
For i = 1 To 3
    Print a(4, i)
Next i
Print vbLf
Print "Максимальный элемент массива - " & max
Print "Номер строки в которой расположен максимальный элемент - " & m_i
Print "Номер столбца в котором расположен максимальный элемент - " & m_j
Print "Количество чётных элементов в массиве - " & n
End Sub