Ayuda para completar este codigo

[Thessen]

Mas o menos...

Private Sub CalculaEpsilon()
Dim epsilon As Double = 0
Dim numero As Integer = Val(TextBox1.Text)

For x As Integer = 0 To numero + 1
epsilon = epsilon + (1 / Factorial(x))
Next

Me.TextBox1.Text = epsilon
End Sub

Private Function Factorial(ByVal numero As Integer) As Double
Select Case numero
Case 0
Factorial = 1
Case 1
Factorial = 1
Case Else
Factorial = numero * Factorial(numero - 1)
End Select
End Function