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

Private Sub Command1_Click()
Dim a() As Integer, b() As Integer, i As Integer, n As Integer
n = InputBox("введите n", , 10)
ReDim a(1 To n), b(1 To n)
Cls
 
For i = 1 To n
    a(i) = Int(Rnd() * 20 - 5)
    Print a(i) & vbTab;
Next
 
Print
b(n) = a(n) + a(1)
For i = 1 To n - 1
    b(i) = a(i) + a(i + 1)
Next
 
For i = 1 To n
    Print b(i) & vbTab;
Next
 
End Sub