Dim f(9)
f(0) = 1
For i = 1 To 9
f(i) = 1
For j = 1 To i
f(i) = f(i) * j
Next j
Next i
'
For i = 0 To 9
'MsgBox f(i)
Next i
'
L = 9
e = 0
For i = 0 To L
e = e + 1 / f(i)
Next i
MsgBox e