Найти номер столбца матрицы с минимальным элементом - VB

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

дан массив С(6,10) 1.надо найти номер столбца минимального элемента в процедуре 2. процедуру вызвать в подпрограмме, чтобы найти номер столбца минимального элемента в каждой строке 3. написать код длля вызова процедур ввода массива, поска номера столбца минимального элемента в каждой строке и вывод результатов спасибо за помощь.

взял из параллельной ветки задачу семилетней давности. она сравнивает числа с заданным. а нужно найти минимальное и выделить номер столбца в котором она есто

dim n as integer, x as double, arr() as double, flg as boolean, b() as byte
n=inputbox("NNN")
x=inputbox("XXX")
redim arr(1 to n,1 to 2*n)
redim b(1 to n)
for i=1 to n
flg=false
for j=1 to 2*n
arr(i,j)=inputbox("ARRAY")
if arr(i,j)<=x then flg=true
next j
b(i)=abs(flg)
next i
 
for i=1 to n
msgbox b(i)
next i

Решение задачи: «Найти номер столбца матрицы с минимальным элементом»

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

                            Option Explicit
'Option Base 1
'Sub d()
Private Sub Command1_click()
    Dim n As Integer, m As Integer, nmin As Integer, mmin As Integer, min As Integer
    Dim i&, j&
    'Dim Cells As Arrau
    n = Val(InputBox("введие n")) ' Ввожу n = 5
    m = Val(InputBox("введие m")) ' Ввожу m = 7
    ReDim A(n, m) As Integer
        For i = 1 To n
        For j = 1 To m
            A(i, j) = (Rnd * 100) + 1
            'Cells(i, j) = A(i, j) ' Взял да и вычеркнул эту часть кода!
        Next j
    Next i
    min = A(1, 1)
    For i = 1 To n
        For j = 1 To m
            If A(i, j) < min Then
                nmin = i
                mmin = j
                min = A(i, j)
            End If
        Next j
    Next i
    MsgBox ("n = " + Str(nmin)) '  Здесь внёс добавки. Получил n = 1
    MsgBox ("m = " + Str(mmin)) '  Здесь внёс добавки. Получил m = 7
End Sub
                        