Найти сумму элементов каждой строки матрицы размерностью MxN.

Public Sub Matrix()
Dim i, j
Dim text, answer
Dim m As Byte, n As Byte, sum As Integer
Dim a() As Integer
n = InputBox("N")
m = InputBox("M")
ReDim a(1 To n, 1 To m) As Integer
For i = 1 To n
sum = 0
For j = 1 To m
a(i, j) = Int((100) * Rnd - 50)
sum = sum + a(i, j)
text = text & a(i, j) & Space(3)
Next j
answer = answer & "Номер строки : " & i & "  Сумма:  " & sum & vbLf
text = text & vbLf
Next i
MsgBox text
MsgBox answer
End Sub

a(i, j) = Int((100) * Rnd - 50)

a(i,j)=Inputbox("Введите элемент : " & i & j)

n = InputBox("M")
m = InputBox("N")

Public Sub Matrix()
Dim i, j
Dim text, answer
Dim m As Byte, n As Byte, sum As Integer
Dim a() As Integer
m = InputBox("M")
n = InputBox("N")
ReDim a(1 To m, 1 To n) As Integer
For i = 1 To m
sum = 0
For j = 1 To n
a(i, j) = Int((100) * Rnd - 50)
sum = sum + a(i, j)
text = text & a(i, j) & Space(3)
Next j
answer = answer & "Номер строки : " & i & "  Сумма:  " & sum & vbLf
text = text & vbLf
Next i
MsgBox text
MsgBox answer
 
Dim maxStr As Single, maxStb As Single, temp As Single
'Пусть максстрока будет первой строкой
For i = 1 To m
maxStr = maxStr + a(i, 1)
Next i
'И максстолбец будет первым
For i = 1 To n
maxStb = maxStb + a(1, i)
Next i
'перебираем поочерёдно столбцы,ищем максимум
For j = 1 To n
temp = 0
For i = 1 To m
temp = temp + a(i, j)
Next i
If temp > maxStb Then maxStb = temp
Next j
 
temp = 0
'Перебираем строки
For i = 1 To m
temp = 0
For j = 1 To n
temp = temp + a(i, j)
Next j
If temp > maxStr Then maxStr = temp
Next i
MsgBox maxStr
MsgBox maxStb
End Sub