Сдавала я намедни лабораторную и преподу не понравилась функция. Помогите найти предмет его недовольсва плз! Заранее огромное 10х

Вычислить значение: e=1+1/1!+1/2!+1/3!+...

Собственно функция
Public Function factorial()
Dim result As Long
Dim i As Long
Dim mystring As String
n = InputBox("Ââåäèòå ÷èñëî ïðîõîæäåíèé ôóíêöèè" + n)

i = 1
result = 1
If n < 13 Then
Do
result = result * i
i = i + 1
Loop Until Not i <= n
factorial = result
If n = 1 Then
e = 1 / factorial + 1
Else
e = 1 / factorial + 2
End If
mystring = Format(e, "###,##0.0000")
mystring = MsgBox("Ðåçóëüòàò " + mystring)
Else: MsgBox ("Ââåäèòå n<13")
End If
End Function

paparome, моё Вам большое человеческое спасибо!