Создать массив из n (n>2) чисел, в котором первые два элемента задаются с клавиатуры, а все последующие равны сумме двух предыдущих элементов

Sub z()
Dim a() As Integer
n = InputBox("Сколько чисел?")
ReDim a(n)
For i = 1 To 2
a(i) = InputBox("Введите число")
Next i
s = a(1) & " " & a(2)
For i = 3 To n
a(i) = a(i - 2) + a(i - 1)
s = s & " " & a(i)
Next i
MsgBox ("Массив: " & s)
End Sub