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

    Function zadanie3(ByVal i As Integer, ByVal n As Integer, ByVal mass(,) As Double) As Integer
        Dim j As Integer
        Dim min As Integer

        For j = 0 To n - 1
            If min < mass(i, j) Then
                min = j
                Exit For
            End If
        Next
        Return min
    End Function
 
    Sub Zadanie4(ByVal n As Integer, ByVal mass(,) As Double, ByVal k As Integer, ByRef j As Integer)
        Dim i As Integer
        j = 0
        For i = 0 To k - 1
 
            j = zadanie3(i, n, mass) + 1
        Next
 
    End Sub