Как разделить все элементы массива на минимальный элемент и напечатать полученный массив - VB

Dim MasA(1 To 5, 1 To 6) As Single
Dim i, j, m, n As Integer
 
Option Explicit
 
Private Sub Command1_Click()
      Randomize
For i = 1 To 5
   For j = 1 To 6
      MasA(i, j) = 10 + Int(30 * Rnd()) + 1
      Tab1.Col = j - 1
      Tab1.Row = i - 1
      Tab1.Text = MasA(i, j)
 
Next j
Next i
End Sub
 
Вот тут дальше подправьте:cry:
Private Sub Command2_Click()
For i = 1 To n
For j = 10 To m
Text1.Text = n
Text2.Text = m
if a(i;j)>min then min=a(i;j)
 
Next i
Next j
 
End Sub