Описать функцию Ln1(x,e) вещественного типа..

[mm00]

Описать функцию Ln1(x,e) вещественного типа (параметры x, e - вещественные, |x|<1, e>0), находящую приближенное значение функции ln(1+x): ln(1+x)=x–x^2/2+x^3/3–...+(–1)^n*x^n+1/(n+1)+... . В сумме учитывать все слагаемые, модуль которых больше e. С помощью Ln1 найти приближенное значение ln(1+x) для данного x при шести данных e. Проверте, пожалуйста.
Function Ln1(x As Single, e() As Single) As Single
Dim y As Single
Dim s As Single
Dim i As Integer
y = x
s = y
i = 1
For i = 1 To 6
y = -1 * y * x
s = s + y / i
Ln1 = s
Next i
End Function
Private Sub Command1_Click()
Dim x As Single
Dim e(1 To 6) As Single
Dim i As Integer
x = Val(InputBox("Ââåäèòå ÷èñëî X(|x|<1)="))
For i = 1 To 6
e(i) = Val(InputBox("Çàäàéòå ',i,' òî÷íîñòü e(e>0)="))
Next i
Print Ln1(x, e)
End Sub