Для каждой строки матрицы найти число элементов

Dim N, i, j, k As Integer
Option Base 1
 
Private Sub Command1_Click()
k = Val(Text1.Text)
If k <= 10 Then
    ReDim N(k, k) As Single
    MSFlexGrid1.Visible = True
    MSFlexGrid2.Visible = True
    MSFlexGrid1.Rows = k + 1
    MSFlexGrid1.Cols = k + 1
    MSFlexGrid2.Rows = k + 1
    MSFlexGrid2.Cols = 2 + 1
 
MSFlexGrid1.TextMatrix(0, 0) = "N(i)"
MSFlexGrid2.TextMatrix(0, 0) = "N(i)"
 
MSFlexGrid1.Width = 500 * k + 600
MSFlexGrid2.Width = 500 * k + 600
For i = 0 To k
    MSFlexGrid1.ColWidth(i) = 500
Next i
Randomize
For i = 1 To k
    For j = 1 To k
        N(i, j) = 5 - Int(100 * Rnd)
    Next j
Next i
For i = 1 To k
    MSFlexGrid1.TextMatrix(i, 0) = i
    For j = 1 To k
        MSFlexGrid1.TextMatrix(0, j) = j
        MSFlexGrid1.TextMatrix(i, j) = N(i, j)
        If N(i, j) < 0 Then N(i, j) = 0
    Next j
Next i
For i = 1 To k
    MSFlexGrid2.TextMatrix(i, 0) = i
 
Next i
Else
    i = MsgBox("Значение k должно быть не более 10", vbInformation, "Внима-ние!")
    Text1.Text = Empty
    Text1.SetFocus
    
 
End If
End Sub

  If N(i, j) mod 5 = 0

if max<N(i, j) then max=N(i, j)