составить в 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 = p
End Function

Sub 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 s
End Sub