Решение уравнений высшей степени

Где тут ошибка? Почему-то не выдает корень...
a и b - отрезок, в котором заключен корень

Dim n, fa, fc, a, b, c, z, i As Integer
Dim mas() As Integer

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
fa = 0
a = InputBox("введите a")
b = InputBox("b")
z = InputBox("введите максимальную погрешность")
n = InputBox("введите степень уравнения")
ReDim mas(0 To n)
For Me.i = 0 To n Step 1
mas(i) = InputBox("Введите" + Str(i) + "-й коэфицент")
fa = fa + mas(i) * (a ^ i)
Next i
Do
c = (a + b) / 2
fc = 0
For Me.i = 0 To n
fc = fc + mas(i) * (c ^ i)
Next i

If fa * fc < 0 Then
b = c
Else : a = c

End If
Loop While (a + b) / 2 > z
label1.text = (a + b) / 2

End Sub
End Class