Получить одномерный массив, каждый элемент которого есть сумма элементов строк исходной матрицы - VB

Option Explicit
Dim U(4,5) As Long
Dim V(4) As Long
Dim i As Long
Dim j As Long
Private Sub cmdD_Click()
Call Summa(U(),V())
For i=0 To 4
   Print V(i)
Next i
End Sub
 
Private Sub Summa(U() As Long, V() As Long)
   Erase V
   For i=0 To 4
      For j=0 To 5
         V(i)= V(i)+U(i,j)
      Next j
   Next i
End Sub