Составить в VBA, используя подпрограмму: Составить программу вычисления суммы: 1! + 2!+3! + ... +n!

Function fact(n As Integer) As Long    Dim i As Integer, p As Long    p = 1    For i = 2 To n        p = p * i    Next i    fact = pEnd FunctionSub Test()    Dim n As Integer, s As Long, i As Integer    s = 0    n = CInt(InputBox("Введите число n"))    For i = 1 To n        s = s + fact(i)    Next i    MsgBox sEnd Sub