Поиск минимального элемента в диагоналях квадратной матрицы - VB

Формулировка задачи:

Поиск минимального элемента в диагоналях квадратной матрицы. 2. В программе предусмотреть ввод произвольного числа строк и столбцов матрицы, ввод элементов матрицы, ее контрольный ввод, обработку и ввод результатов. ребят помогите на Private Sub Command1_Click() выводит ошибку в чем беда?

Dim i, j, A(4, 4) As Integer
Private Sub Command1_Click()
For i = 1 To 4
For j = 1 To 4
      A(i, j) = Val(InputBox("введите A(" + Str(i) + "," + Str(j) + ")="))
Next j, i
Print "ishodnyi massiv"
For i = 1 To 4
For j = 1 To 4
Print A(i, j);
Next j, i
Print
For i = 1 To 4
Min = A(i, 1)
m = 1
For j = 1 To 4
If A(i, j) < Min Then Min = A(i, j):  m = j
Next j, i
End Sub

Решение задачи: «Поиск минимального элемента в диагоналях квадратной матрицы»

textual
                            Листинг программы 
                        

                            Dim i As Integer, j As Integer, A() As Integer, m As Integer, n As Integer
Private Sub Command1_Click()
Randomize
n = InputBox("N = ", , 4)
ReDim A(1 To n, 1 To n)
Print "Исходный массив"
For i = 1 To n
   For j = 1 To n
      A(i, j) = Val(InputBox("введите A(" + Str(i) + "," + Str(j) + ")=", , Int(Rnd * 10)))
      Print A(i, j);
   Next j
   Print
Next i
 
Min = A(1, 1):  m = 1
 
For i = 1 To n
       If A(i, i) < Min Then Min = A(i, i): m = i
Next i
 
Print "Минимальный элемент главной диагонали "
Print "A(" & m & "," & m & ") =" & Min
Min = A(1, n): m = 1
 
For i = 1 To n
         If A(i, (n + 1) - i) < Min Then Min = A(i, (n + 1) - i): m = i
Next i
 
Print "Минимальный элемент побочной диагонали "
Print "A(" & m & "," & (n + 1) - m & ") =" & Min
End Sub
                        