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

Private Sub Form_Load()
    Dim A() As Double, L As Long, Sum As Double
    ReDim A(1 To 4, 1 To 4)
    A(1, 1) = -3: A(1, 2) = -1: A(1, 3) = 1: A(1, 4) = 2
    A(2, 1) = 1: A(2, 2) = -1: A(2, 3) = 1: A(2, 4) = 1
    A(3, 1) = 3: A(3, 2) = 8: A(3, 3) = 3: A(3, 4) = -1
    A(4, 1) = -2: A(4, 2) = 1: A(4, 3) = 1: A(4, 4) = -3
    For L = 1 To 4
        Sum = A(L, 1) + A(L, 2) + A(L, 3) + A(L, 4)
        Print "Сумма элементов строки " & L & " = " & Sum
    Next
End Sub