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

Private Sub Command1_Click()
Form1.Cls
   Dim x As Single, y As Single
    Dim n As Long
    Const e = 0.001
    y = 0
    For x = -1 To 1 Step 0.1
        n = 1
        y = -x
        Do While Abs(Abs(y) - Abs(Log(1 - x))) >= e
            n = n + 1
            y = -(x ^ n) / n + y
            DoEvents
        Loop
        Print Round(x, 4); Round(y, 4); Round(Log(1 - x), 4)
        y = 0
    Next x
End Sub