Найти сумму наибольших значений строк заданной матрицы - VB

Формулировка задачи:

Прошу помощи. Задача: "Дана действительная матрица размером n x m. Найти сумму наибольших значений её строк. Написал код для ввода матрицы, что делать дальше ума не приложу. Заранее благодарен

                    Листинг программы
                
 
                        
                          
                    
Module Module1
 
    Sub Main()
        Dim a(,) As Integer, n As Integer, g As Integer
        Dim i As Integer, j As Integer
        Dim m As String
        n = InputBox("Введите кол-во строк")
        g = InputBox("Введите кол-во столбцов")
        ReDim a(n, g)
        m = ""
        Randomize()
        For i = 1 To n
            For j = 1 To g
                a(i, j) = Int(Rnd() * 20)
                m = m + CStr(a(i, j)) + vbTab
            Next
            m = m + Chr(10) + Chr(13)
        Next
        MsgBox(m)
    End Sub
 
End Module

Решение задачи: «Найти сумму наибольших значений строк заданной матрицы»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Module Module1
 
    Sub Main()
        Dim a(,), b(), n, m, i, j, max, sum As Integer
        Dim s As String = ""
        n = Val(InputBox("Введите кол-во строк", , 4))
        m = Val(InputBox("Введите кол-во столбцов", , 5))
        ReDim a(n - 1, m - 1), b(m - 1)
        Randomize()
        For i = 0 To n - 1
            For j = 0 To m - 1
                a(i, j) = Int(Rnd() * 20)
                b(j) = a(i, j)
                s &= CStr(a(i, j)) + vbTab
            Next
            max = b(0)
            For j = 1 To m - 1
                If max < b(j) Then max = b(j)
            Next
            sum += max
            s &= " max=" & CStr(max) & vbCrLf
        Next
        MsgBox(s & "Сумма максимальных = " & sum)
    End Sub
 
End Module