Дана действительная матрица размером , все элементы которой различны - VB

ReDim a(1 To N, 1 To M) As Single
ReDim b(1 To N) As Single
ReDim intN(1 To N) As Integer
For i = 1 To N
For j = 1 To M
a(i, j) = InputBox("element :" & i & j)
Next j
Next i
For i = 1 To N
b(i) = a(i, 1)
intN(i) = 1
For j = 1 To M
If a(i, j) < b(i) Then
b(i) = a(i, j)
intN(i) = j
End If
Next j
Next i
sngMax = b(1)
For i = 2 To N
If b(i) >= sngMax Then
sngMax = b(i)
iI = i
jJ = intN(i)
End If
Next i
MsgBox "element : " & sngMax & " .S indexami " & iI & " " & jJ
End Sub