Ряды. Вычислить с заданной точностью значение функции, используя ее разложение в ряд

Function Ln(x As Double, eps As Double) As Double
    s# = 0
    A# = x#
    n# = 1
    Do
      If Abs(A#) <= eps Then Exit Do
      s# = s# + A# / n#
      A# = -A# * x#
      n# = n# + 1
    Loop
    Ln = s#
End Function

Private Sub Command1_Click()
 
End Sub

Private Sub Command1_Click()
  xx#=Val(Me.Text1.text)
  Me.Label1.Caption=Cstr(F(xx#,0.0001)
End Sub

Private Sub Command1_Click()
  xx#=Val(Me.Text1.text)
  ee#=Val(Me.Text2.text)
  Me.Label1.Caption=Cstr(F(xx#,ee#)
End Sub

Private Sub Command1_Click()
  x# = Val(Text1.Text)
  Label1.Caption = CStr(Ln(x#, 0.0001))
End Sub
Function Ln(x As Double, eps As Double) As Double
    s# = 0
    A# = x#
    n# = 1
    Do
      If Abs(A#) <= eps Then Exit Do
      s# = s# + A# / n#
      A# = -A# * x#
      n# = n# + 1
    Loop
    Ln = s#
End Function

Abs
eps