Вычислить с точностью до e = 1*10^-5 - VB

Формулировка задачи:

Очень прошу помогите пожалуйста написать программу на Visual Basic я вообще ничего не понимаю, а программу нужно уже сдать. Очень прошу напишите пожалуйста: Вычислить с точностью до e = 1*10^-5

Решение задачи: «Вычислить с точностью до e = 1*10^-5»

textual
                            Листинг программы 
                        

                            Sub Uravnenie()
Dim x As Double, y As Double, ch As Currency
ch = 0
For i = 0 To 2 Step 0.00001
    x = Round(i, 5)
    If x > 0 And x <= 2 Then
        ch = ch + 1
        If ch Mod 2 = 0 Then
            y = y - (((x - 1) ^ ch) / ch)
        Else
            y = y + (((x - 1) ^ ch) / ch)
        End If
    End If
    ter = Round(y, 5)
    Debug.Print ter
Next i
End Sub
                        