Проблема с двумерным массивом в VBA

[HellkilleR]

Написать программу обработки двумерного массива. Ввод элементов производить с листа MS Excel. Результат также поместить на лист Excel.Задание: Дана квадратная матрица порядка N. Вывести столбец матрицы, в котором элемент, стоящий на главной (побочной) диагонали, минимален, среди элементов главной диагонали.
Никак не могу сделать(
Вопрос начинается уже сначала, как задать квадратную матрицу размерностью N ? Решив на это плюнуть, попробовал создать матрицу 4 на 4 в экселе, повводил числа. Написал соответствующую программу, вот она:

Public Sub prog4()
Dim a(1 To 4, 1 To 4) As Integer
Dim i_min As Integer, j_min As Integer
i_min = 1
j_min = 1
For i = 1 To 4
For j = 1 To 4
a(i, j) = Worksheets(1).Cells(i, j)
If i = j Or i + j = 4 + 1 Then
If a(i, j) < a(i_min, j_min) Then i_min = i And j_min = j
End If
Next j
Next i
Worksheets(1).Range("A12") = j_min
End Sub

Но оно выдаёт ошибку Subsript out of range .... Я попробовал сделать пошаговую отслежку, и заметил, что когда оно находит элемент, меньше элемента А(1,1), то оно не запоминает соответсвующие этому элементу i-тую строку и j-тый столбец... и также обнуляет i_min и j_min, т.е. делает их равными нулю ...
Но вроде программа правильно написано, не понимаю в чём дело, помогите плиз, и по возможности скажите как задать двумерный массив размерностью N, так что бы можно было ещё данные с листа Excel вводить.

[doober]

Смотрите вложение

[SAS888]

Еще вариант, по проще.