Private function e()
Dim e1,n,jc
n = 0
e1 = 1
jc=1
Do
n = n + 1
jc = n*jc
e1 =e1 +1/jc
Loop Until 1 /jc