ayuda con FOR y factoriales

[pkj]

Lo mio no son las matemáticas. A ver si he entendido bien lo que se buscaba y te funciona este código que he creado.

Código :

Private Function Calcular(ByVal N As Long) As Double
  Dim Resultado As Double
  Dim FactAnterior As Long
  Dim F As Long
  Resultado = 1
  FactAnterior = 1
  For F = 1 To N
    FactAnterior = F * FactAnterior
    Resultado = Resultado + (1 / FactAnterior)
  Next F
  Calcular = Resultado
End Function
 

Un saludo.