Función de Factorial

[Bazooka]

Hola Gente he creado esta función para calcular el Factorial de un numero y me gustaria saber si es posible hacerla mas robusta o no se justifica por su simplicidad...

Código: [Seleccionar]

Private Function FACTORIAL(NUM As Integer) As Double

    Dim Res

    Dim tmp

    Dim cont

    Res = 1

    For cont = 1 To NUM
        Res = Res * cont
        tmp = Res
    Next

    FACTORIAL = tmp

End Function


[YAcosta]

Creo que mas no se puede hacer que ahorrarse un par de lineas

Código: (VB) [Seleccionar]

Function factorial(ByVal n as Integer) as Long
Dim i as Integer
factorial = 1
For i = 1 to n
   factorial = factorial * i
Next a
End Function