Private Sub Form_Load() x = 1 / 999999999 e = (1 + x) ^ (1 / x) MsgBox e End Sub