محاسبه فاکتوریل

[NASA's Spaceman]

سلام
چجور میشه این نوع فاکتوریل رو حساب کرد؟
5! + 4! + 3! + 2! + 1!
و این یکی
1! + 2! + 3! + ......n!
تو نمونه دومی n همون عددی هست که کاربر وارد میکنه
ممنون میشم کسی کد این دو نمونه رو بهم بده
با سپاس Spaceman

[Mori Bone]

Private Sub Form_Load()
Dim f As Long
f = 0
n = Val(InputBox("?"))
For i = 1 To n
f = f + factoriel(i)
Next
MsgBox f
End Sub

Private Function factoriel(ByVal number As Byte) As Long
f = 1
For j = 1 To number
f = f * j
Next
factoriel = f
End Function