Определить индексы наименьших элементов квадратной матрицы над и под главной диагональю - VB

Private Sub Command1_Click()
Dim a() As Integer
Dim n As Integer
Dim MINnad As Integer
n = InputBox("Кол-во строк и столбцов")
ReDim a(n, n)
 For i = 1 To n
   Print
   For j = 1 To n
      a(i, j) = InputBox("Ввод элемента матрицы(" & i & ";" & j & ")")
      Print a(i, j);
   Next
 Next
MINpod = a(2, 1)
 For i = 2 To n
  For j = 1 To n - 1
   If MINpod > a(i, j) Then MINpod = a(i, j): d = i: c = j
  Next
 Next
Print vbTab
Print "Индекс наименьшего элемента под главной диагональю A("; d; ","; c; ") ="; MINpod
End Sub