Дан массив целых случайных чисел - VBA

Формулировка задачи:

Дан массив целых случайных чисел (размер массива определяет пользователь, но в диапазоне [3;20]). Сформировать одномерный массив, элементы которого равны сумме элемента заданного массива и следующего за ним элемента. Очень нужно, не понимаю. Помогите кто может. Спасибо!

Решение задачи: «Дан массив целых случайных чисел»

textual
                            Листинг программы 
                        

                            Function Sum1(A() As integer) As integer ()
Dim R() as integer
      n%=Ubound(A,1)
      Redim R(1 to n%-1) As integer
      For i%=1 to n%-1
           R(i%)=A(i%)+A(i%+1)
      Next i%
      Sum1=R     
End Function
                        