怎么用VB计算N的阶层

Function factorial(n As Integer) As Long
Dim i As Integer
Dim ret As Long
ret = 1
For i = 1 To n
ret = ret * i
Next i
factorial = ret
End Function