Вычисление суммы факториалов

Sub Factorail_sum()
    Dim s As Long
    Dim n As Byte
    n = 5
    factor n, s
    MsgBox s
    End Sub
Function factor(ByVal n As Byte, ByRef s As Long) As Long
    Dim f As Long
    If n = 1 Then
       f = 1
    Else
       factor (n - 1), s
       s = s + f
       f = n * f
    End If
End Function

Sub Factorail_sum()
    Dim s As Long
    Dim n As Byte
    n = 5
    factor n, s
    MsgBox s
End Sub
 
Function factor(n As Byte, s As Long) As Long
    If n = 1 Then factor = 1 Else factor = factor(n - 1, s) * n
    s = s + factor
End Function

Function sumFact(n as integer) As long
   k%=1
   for i%=1 to n
       k%=k%*i%
       sumFact=sumFact+k%
   Next i%
End Function    
Sub Test
   MsgBox sumFact(5)
End Sub

Sub sFact()
    Dim n As Long, i As Long, f As Double, s As Double
    n = 5
    f = 1
    For i = 1 To n
        f = f * i
        s = s + f
    Next i
    MsgBox s
End Sub