Найти наименьший элемент массива vba?

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

Приветствую всех. Задали в институте. Нужно найти наименьший элемент матрицы 4x2

Dim A() As Single
Dim i As Integer, j As Integer
Dim max As Single
 
Randomize
ReDim A(1 To 4, 1 To 2)
 
For i = 1 To 4
   For j = 1 To 2
       A(i, j) = Int(91 * Rnd - 67)
       Label1.Caption = Label1.Caption & A(i, j) & vbTab
   Next j
   Label1.Caption = Label1.Caption & vbNewLine
Next i

Вот так заполняю, как теперь найти наименьший элемент? С vba вообще не дружу и не хочу дружить.

Решение задачи: «Найти наименьший элемент массива vba?»

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

                            Dim A() As Single
Dim i As Integer, j As Integer
Dim MIN As Single
MIN = 3E+38
Randomize
ReDim A(1 To 4, 1 To 2)
 
For i = 1 To 4
   For j = 1 To 2
       A(i, j) = Int(91 * Rnd - 67)
       Label1.Caption = Label1.Caption & A(i, j) & vbTab
       If MIN > A(i, j) Then MIN = A(i, j)
   Next j
   Label1.Caption = Label1.Caption & vbNewLine
Next i
Caption = MIN
                        