برنامه 100 فاکتوریل چه طوریه؟؟؟

چه طوری مکی تونم برنامه ی 100 فاکتوریل رو تو ویژوال بیسیک بنویسم.

ببین زمانیکه این کارو بکنی eroor میگیره چون چنان عدد بزرگی میشه

این ماله اعداد......است
[HTML]Private Sub Command1_Click()
Dim n As Integer, c As Integer, f As Single, w As Long
f = 0
n = InputBox("enter number of statement:")
For c = 1 To n
w = Factor(c + 1)
f = f + c / w
Next c
MsgBox "Result Is:" & f
End Sub
Private Function Factor(k%) As Long
Dim p As Long, i As Integer
p = 1
For i = 1 To k
p = p * i
Next i
Factor = p
End Function
[/HTML]

f=1
(For i = 100 To 1 Step -1
f = f * i
Next i
lbl1.caption="100!="+str(f