d = System.Math.E   ' luonnollinen luku e = 2,71828182845905


Jos kuitenkin iskee pakottava tarve laskea itse  e (Neperin luku, Eulerin luku) niin näin se käy:

    Public Shared Function Neper() As Double
        Static Laskettujo As Boolean ' säilyttää arvonsa laskentakerrasta toiseen
        Static ne As Double ' säilyttää arvonsa laskentakerrasta toiseen
        If Laskettujo Then
            Return ne ' oli jo laskettu aiemmin
        End If
        ' eka kerta kun kutsutaan
        Dim k As Integer : Dim n As Long = 1 : ne = 1
        For k = 1 To 20
            n = n * k
            ne = ne + 1.0R / CDbl(n)
        Next
        Laskettujo = True ' lippu päälle että ei tartte laskea toiste
        Return ne
    End Function