RE:COMO SACAR EL FACTORIAL DE UN NUMERO, URGENTE!!
Bien, lla función que te manda bla es correcta, hace uso de la recursividad.
Por mi parte hice una que creo un poquito más didáctica, pero cualquiera de las dos te sirve.
Public Function Factorial(Numero As Integer) As Double
Dim n As Integer
Dim Facto As Double
'en este if que sigue sale sin calcular cuando el N°>100
'se puede ampliar este límite cuidando de no desbordar
'la variable Facto ni la función misma con el resultado.
If Numero > 100 Then Exit Function
Facto = Numero
'aquí repite las multiplicaciones en orden descendente
'por eso el "Step -1" desde el N° inmediato inferior
'a "Numero" hasta 1
For n = Numero - 1 To 1 Step -1
Facto = Facto * n
Next n
Factorial = Facto
End Function
Suerte