Как зделать двухмерный масив в котором нужно найти малейшие элементы всех столбцов массива

Private Sub ss()
Const n = 3
Dim A(n, n) As Integer, i As Integer, j As Integer
For i = 1 To n
For j = 1 To n
A(i, j) = (Rnd * -10)
Next j
Next i
Debug.Print " Початкова матриця"
For i = 1 To n
For j = 1 To n
Debug.Print A(i, j);
Next j
Debug.Print
Next i
        For i = 1 To n
        min = A(i, i)
        Next i
        j = 1
        For i = 1 To n
        For j = 1 To n
        If A(j, i) < min Then
        min = A(j, i)
        End If
        Next j
        Next i
        Debug.Print "мінімальне число в масиві(1) "; min;
End Sub

Option Explicit
 
Dim Ar() As Long
 
Private Const Cnt As Long = 4 'массив 4*4
 
Private Sub Form_Load()
  Dim i As Long, j As Long, v As Long
 
  ReDim Ar(Cnt - 1, Cnt - 1)
 
  'заполняем массив случайными числами
  Randomize Timer
  Debug.Print
  For i = 0 To Cnt - 1
    For j = 0 To Cnt - 1
      Ar(i, j) = Rnd * 100
      Debug.Print Ar(i, j),
    Next j
    Debug.Print
  Next i
 
  'ищем наименьшие числа в столбцах
  Debug.Print
  For j = 0 To Cnt - 1
    v = 100
    For i = 0 To Cnt - 1
      If v > Ar(i, j) Then v = Ar(i, j)
    Next i
    Debug.Print v,
  Next j
End Sub