Вычислить значение выражения - VB (58689)

Option Explicit
Public Function Factorial(ByVal n As Integer) As Long
    If (n = 0) Then
        Factorial = 1
    Else
        Factorial = n * Factorial(n - 1)
    End If
End Function
Private Sub Form_Load()
Dim x As Double, i As Integer
 
For i = 1 To 10
x = 2 + 1 / Factorial(i)
Debug.Print x
Next
 
End Sub