Найти сумму элементов каждой строки

Private Sub Command1_Click()
    Dim A() As Integer, summ()
    Dim n As Integer, i As Integer, j As Integer
    Randomize
    Cls
    n = InputBox("vvedite razmer massiva ", , 3)
    ReDim A(1 To n, 1 To n), summ(1 To n)
    For i = 1 To n
        For j = 1 To n
           A(i, j) = Rnd * (20)
        Print vbTab; A(i, j);
      Next j
      Print
    Next i
    Print
    For i = 1 To n
        For j = 1 To n
          summ(i) = summ(i) + A(i, j)
        Next j
        Print i & "  summa = " & summ(i)
    Next i
End Sub

Dim A%()
 
Sub init(ByVal n As Integer)
ReDim A(1 To n, 1 To n)
Randomize
t = ""
For i = 1 To n
    For j = 1 To n
        A(i, j) = Int(Rnd() * 20)
        t = t & A(i, j) & vbTab
    Next j
    t = t & vbCrLf
Next i
Text1 = t 'text1 äîëæåí èìåòü MultiLine = true
End Sub
 
Function summ(ByVal n As Integer, ByVal i As Integer)
summ = 0
For j = 1 To n
    summ = summ + A(i, j)
Next j
End Function
 
Private Sub Command1_Click()
n = InputBox("vvedite razmer massiva ", , 3)
init (n)
t = ""
For i = 1 To n
    t = t & i & "  summa = " & summ(n, i) & vbCrLf
Next i
Text2 = t 'text2 äîëæåí èìåòü MultiLine = true
End Sub