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

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
For i = 1 To n - 1
For j = i + 1 To n
MINnad = a(0, 0)
If MINnad > a(i, j) Then MINnad = a(i, j)
Print "Индекс наименьшего элемента над главной диагональю"; i; j
Next
Next
End Sub

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
MINnad = a(1, 2)
 For i = 1 To n - 1
  For j = 2 To n
   If MINnad > a(i, j) Then MINnad = a(i, j): d = i: c = j
  Next
 Next
Print vbTab
Print "Индекс наименьшего элемента над главной диагональю A("; d; ","; c; ") ="; MINnad
End Sub

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