Определить числа в,... Bm,равные соответственно наименьшим значениям элементов строк. Visual Basic. Помогите пожалуйста

Это просто
Dim A() As Single, B() As Single, m As Integer, n As Integer
Dim i As Integer, k As Integer, Mes As String
m = InputBox ("Vvedite kol-vo strok")
n = InputBox ("Vvedite kol-vo stolbcov")
ReDim A(m, n), B(m)

For i = 1 To m
For k = 1 To n
A(i, k) = InputBox ("Vvedite element matricy A")
Next k
Next i

For i = 1 To m
B(i) = A(i, 1)
For k = 1 To n
If A(i, k) < B(i) Then B(i) = A(i, k)
Next k
Next i

Mes = ""
For i = 1 To m
Mes = Mes & B(i) & " "
Next i
MsgBox (Mes)
End