Определить номер строки с наибольшей суммой элементов матрицы С

Private Sub cmdStart_Click()
  Dim iMaxN As Integer
  Dim iMaxL As Integer
  Dim iPosN As Integer
  Dim iPosL As Integer
  Dim sTmp As String
  Dim sFn As String
  Dim iFn As Integer
  Dim fMaxMC As Single
  Dim iMaxNC As Integer
  '
  sFn = App.Path + "\test.txt"
  iFn = FreeFile
  Open sFn For Input As #iFn
  Line Input #iFn, sTmp
  ' Допустим N у нас строки,
  iMaxN = CInt(Val(sTmp))
  Line Input #iFn, sTmp
  ' а L - колонки
  iMaxL = CInt(Val(sTmp))
  ReDim fMC(1 To iMaxN, 1 To iMaxL) As Single
  ReDim fSumMC(1 To iMaxN) As Single
  For iPosN = 1 To iMaxN Step 1
    For iPosL = 1 To iMaxL Step 1
      ' Загружаем из файла все элементы строки
      Line Input #iFn, sTmp
      fMC(iPosN, iPosL) = CSng(Val(sTmp))
    Next iPosL
  Next iPosN
  Close #iFn
  '
  For iPosN = 1 To iMaxN Step 1
    For iPosL = 1 To iMaxL Step 1
      ' Подсчитываем суммы для каждой строки
      fSumMC(iPosN) = fSumMC(iPosN) + fMC(iPosN, iPosL)
    Next iPosL
  Next iPosN
  '
  iMaxNC = 1
  fMaxMC = fSumMC(iMaxNC)
  For iPosN = 1 To iMaxN Step 1
    If fMaxMC < fSumMC(iPosN) Then
      ' Определяем максимальное значение
      iMaxNC = iPosN
      fMaxMC = fSumMC(iPosN)
    End If
  Next iPosN
  '
  sTmp = "Строка №" + Trim$(Str$(iMaxNC))
  sTmp = sTmp + " Сумма в строке =" + Trim$(Str$(fMaxMC))
  MsgBox sTmp
End Sub

Private Sub Command1_Click()
Dim n!, L!, max#, i_max!, summ#
n = InputBox("N", , 5)
L = InputBox("L", , 7)
ReDim mas(n - 1, L - 1)
max = -1000
t = ""
For i = 0 To n - 1
    summ = 0
    For j = 0 To L - 1
        mas(i, j) = Fix(Rnd(1) * 20 - 5)
        summ = summ + mas(i, j)
        t = t & mas(i, j) & vbTab
    Next
    If summ > max Then max = summ: i_max = i
    t = t & vbCrLf
Next
Text1 = t 'для text1 MultiLine должен быть true
MsgBox "Строка " & i_max & ", сумма " & max
End Sub