Вычислить сумму произведений всех пар соседних чисел массива - VB

Private Sub Command1_Click()
Dim A() As Integer, n As Integer, summ As Integer, proizv As Integer, i As Integer
n = InputBox("Размер массива n = ", , 10)
ReDim A(1 To n)
Print "Массив:"
For i = 1 To n
  A(i) = Rnd * (10) + 1                'Заполняем случайными числами
 ' A(i) = InputBox("А(" & i & ") = ")  'Если нужно заполнить вручную - расскомментировать
  Print A(i); vbTab;
Next i
Print
Print "Произведения пар соседних чисел:"
For i = 1 To n - 1
proizv = A(i) * A(i + 1)
  Print proizv; vbTab;
  summ = summ + proizv
Next i
Print
Print "Сумма произведений всех пар соседних чисел = " & summ
End Sub