[Erel]

Do you mean something like:

Sub App_Start
    Msgbox(Factorial(7))
End Sub

Sub Factorial(n)
    f = 1
    For i = 2 To n
        f = f * i
    Next
    Return f
End Sub