Работа с массивами VBA

[неПрограммистка12]

Здравствуйте. Нужно составить программу. которая получает последовательность (задание в файле). Так понимаю, факториал с помощью функции нужно вызывать, не знаю как это сделать. Помогите разобраться с бейсиком этим!)
Набросала код, но чую работает неверно((

Option Explicit
Dim b() As Double
Dim i As Integer, n As Integer, S As Double, promt As String
Function Factorial(n)
  Factorial = 1
  For i = 2 To n
    Factorial = Factorial * i
  Next i
End Function
Sub procedure()
n = Val(InputBox("Vvedite n"))
ReDim b(1 To n)
   For i = 1 To n
       b(i) = (1 / Factorial(i)) + S
   Next i
   promt = ""
   For i = 1 To n
        promt = promt & b(i) & Chr(13)
    Next i
   MsgBox promt
   
End Sub