Ciąg Fibonacciego VBA

Question

Witam potrzebuję pomocy z programem obliczającym 10 wyrazów ciągu Fibonacciego rozpoczynając od liczby wprowadzonej przez użytkownika.

Zrobiłem program, który liczy tylko 1 wyraz tego ciągu,

Sub Przycisk1_Click()
Dim a As Double
Dim b As Double
Dim suma As Double
Dim i As Integer
Dim n As Integer
n = InputBox("podaj N N>1: ")
a = 0
b = 1
suma = 0
For i = 2 To n
suma = a + b
a = b
b = suma
Next i
MsgBox (suma)
End Sub