Вычислить константу Эйлера по формуле(основание натурального логарифма)

Option Strict On
Option Explicit On
Imports System.Math
Public Class Form1
    Function vvod(ByVal T As TextBox) As Double
        Return Val(T.Text)
    End Function
 
    Sub vivodList(ByVal Z As Double, ByVal LB As ListBox)
        LB.Items.Add(Format(Z, "00.000000"))
    End Sub
    Function Factorial(ByVal n As Double) As Double
        If n <= 1 Then
            Return 1
        Else Return n * (n - 1)
        End If
    End Function
 
    Public Sub Cicl(ByRef ex As Double)
        Dim x, n As Integer
        Dim E, ep As Double
        n = 3
        x = 1
        ep = Exp(x)
        E = 0.00001
        ex = 0
        Do Until Abs(ep - ex) < E
            ex = ex + (x ^ n) / Factorial(n)
            vivodList(n, ListBox1)
            vivodList(ep, ListBox2)
            n = n + 1
        Loop
        vivodList(ex, ListBox3)
    End Sub
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim ex As Double
        Cicl(ex)
    End Sub
End Class

'SUM(1/n!)
Dim ee As Double = 2
Dim ep As Double = 0.0000000001
Dim mmb As Double = 1
Dim i As Integer = 2
Do While mmb > ep
    mmb /= i
    ee += mmb
    i += 1
Loop
MsgBox(ee.ToString)