Cómo programar el valor aproximado de e en VB Buscando orientación de expertos.

Este es un bucle do while a

Private Sub Form_Click()

Dim tal As Double, lin As Double, i

i = 0: lin = 1

Do

'e≈1 (1/1!) (1/2!) (1/3!) … (1/n! )

tal = 1

i = i 1

Para j = 2 A i

tal = tal * j

Siguiente j

lin = lin 1 / tal

Ciclo while 1 / tal gt; = 0.0001

Imprimir lin

Fin Sub