Массив с Фибоначчи. Создание массива с произведением элементов Фибоначчи — Microsoft Office Excel

Sub ProductFrstFIBO()
  Dim ar(), N&, i&, P As Double, s$
  N = Val(InputBox("Укажите число", "Сколько чисел Фибоначчи перемножить?", 9))
  ReDim ar(1 To N)
  ar(1) = 1: ar(2) = 1: P = 1: s = ""
  For i = 1 To N
    If i > 2 Then ar(i) = ar(i - 2) + ar(i - 1): P = P * ar(i)
    s = s & "чФ" & i & " = " & ar(i) & ",  произв. = " & P & vbLf
  Next
  MsgBox "равно  " & P & vbLf & vbLf & "получено так: " & vbLf & s, vbOKOnly, "Происзведение " & N & " первых чисел Фибоначчи"
End Sub