Решения методом итерации - VB

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

нужно написать программу решения методом итерации, написала так, но не работает, зависает при выполнении, где ошибка?

Public Class Form1
    Public x0, x, y, s, eps As Single
    Function f(x As Single) As Single
        f = x ^ 3 + 2 * x ^ 2 + 1.5 + x
    End Function
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        x0 = Val(TextBox1.Text)
        eps = 0.0001
        x = x0
        Do
            x0 = x
            x = f(x0)
        Loop Until Math.Abs(x - x0) < eps
        TextBox3.Text = Str(x)
    End Sub
End Class

Решение задачи: «Решения методом итерации»

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

                            Function f(x As Double) As Double
        f = x - (x ^ 3 + 2 * x ^ 2 + 1.5) / (3 * x ^ 2 + 4 * x)
End Function
 
Sub Main()
    xp# = Val(InputBox("x="))
    eps# = 0.0001
    Do
       xc# = f(xp#)
       If Abs(xc# - xp#) < eps# Then Exit Do
       xp# = xc#
    Loop
    Debug.Print xc#
End Sub
                        