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

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

Option Explicit
 Dim A() As Integer, summ()
    Dim n As Integer, i As Integer, j As Integer
Private Sub Command1_Click()
       Randomize
    Cls
    n = InputBox("vvedite razmer massiva ", , 3)
 vvod
 sum
  End Sub
Private Sub vvod()
   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
End Sub
 
Private Sub sum()
  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

 vvod
 sum