Polynomial Equation Solver

Imports System.Numerics
Class MainWindow
    Private Sub Button1_Click(sender As System.Object, e As System.Windows.RoutedEventArgs) Handles Button1.Click
        Dim res As New List(Of Complex)

        Dim arrString As String() = TextBox1.Text.Split(New Char() {","c})
        Dim Coefficients As Double() = New Double(arrString.Length - 1) {}
        Dim i As Integer = 0

        While i < arrString.Length
            Coefficients(i) = Double.Parse(arrString(i))
            i += 1
        End While

        Try
            res = PolynomialRootFinder.PolynomialRootFiner(Coefficients)
            TextBox2.Text = ""
            For Each p As Complex In res
                'Give a more legiable format on the complex numbers
                TextBox2.Text &= String.Format(New ComplexFormatter(), "{0:I0}", p) & vbCrLf
            Next

        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try

    End Sub

    Private Sub TextBox1_TextChanged(sender As System.Object, e As System.Windows.Controls.TextChangedEventArgs)
        If TextBox1.Focus Then
            Dim imput As String = TextBox1.Text.Trim
            If Not imput = "" Then
                txtFormula.Text = ""
                Dim FormulaCoefficients() As String
                If imput.Contains(",") Then
                    FormulaCoefficients = imput.Split(",")
                    Dim ResultingExpression As New List(Of String)
                    Dim degree As Integer = 0
                    For i As Integer = FormulaCoefficients.Count - 1 To 0 Step -1

                        If FormulaCoefficients(i) <> "" Then
                            If Not FormulaCoefficients(i).Trim = "0" Then
                                If degree = 0 Then
                                    If FormulaCoefficients(i).Contains("-") Then
                                        If i = 0 Then
                                            ResultingExpression.Add("-" & FormulaCoefficients(i).Replace("-", ""))
                                        Else
                                            ResultingExpression.Add(" - " & FormulaCoefficients(i).Replace("-", ""))
                                        End If
                                    Else
                                        If i = 0 Then
                                            ResultingExpression.Add(FormulaCoefficients(i).Replace("+", ""))
                                        Else
                                            ResultingExpression.Add(" + " & FormulaCoefficients(i).Replace("+", ""))
                                        End If

                                    End If
                                ElseIf degree = 1 Then
                                    If FormulaCoefficients(i).Contains("-") Then
                                        ResultingExpression.Add(" - " & FormulaCoefficients(i).Replace("-", "") & "*x")
                                    Else
                                        ResultingExpression.Add(" + " & FormulaCoefficients(i).Replace("+", "") & "*x")
                                    End If
                                Else
                                    If FormulaCoefficients(i).Contains("-") Then
                                        ResultingExpression.Add(" - " & FormulaCoefficients(i).Replace("-", "") & "*x^" & degree)
                                    Else
                                        ResultingExpression.Add(" + " & FormulaCoefficients(i).Replace("+", "") & "*x^" & degree)
                                    End If
                                End If
                            End If
                            degree += 1

                        End If
                    Next

                    ResultingExpression(ResultingExpression.Count - 1) = ResultingExpression(ResultingExpression.Count - 1).Trim.Replace("+", "")

                    Dim output As String = ""
                    For j As Integer = ResultingExpression.Count - 1 To 0 Step -1
                        output &= ResultingExpression(j)
                    Next

                    txtFormula.Text = output & " = 0 "
                Else
                    txtFormula.Text = imput & " = 0 "
                End If

            Else
                txtFormula.Text = ""
            End If
        End If
    End Sub
End Class

Public Class ComplexFormatter
    Implements IFormatProvider, ICustomFormatter

    Public Function GetFormat(ByVal formatType As Type) As Object _
                    Implements IFormatProvider.GetFormat
        If formatType Is GetType(ICustomFormatter) Then
            Return Me
        Else
            Return Nothing
        End If
    End Function

    Public Function Format(ByVal fmt As String, ByVal arg As Object,
                           ByVal provider As IFormatProvider) As String _
                    Implements ICustomFormatter.Format
        If TypeOf arg Is Complex Then
            Dim c1 As Complex = DirectCast(arg, Complex)
            ' Check if the format string has a precision specifier.
            Dim precision As Integer
            Dim fmtString As String = String.Empty
            If fmt.Length > 1 Then
                Try
                    precision = Int32.Parse(fmt.Substring(1))
                Catch e As FormatException
                    precision = 0
                End Try
                fmtString = "N" + precision.ToString()
            End If
            If fmt.Substring(0, 1).Equals("I", StringComparison.OrdinalIgnoreCase) Then
                Dim s As String = ""
                If c1.Imaginary = 0 And c1.Real = 0 Then
                    s = "0"
                ElseIf c1.Imaginary = 0 Then
                    s = c1.Real.ToString("r")
                ElseIf c1.Real = 0 Then
                    s = c1.Imaginary.ToString("r") & "i"
                Else
                    If c1.Imaginary >= 0 Then
                        s = [String].Format("{0}+{1}i", c1.Real.ToString("r"), c1.Imaginary.ToString("r"))
                    Else
                        s = [String].Format("{0}-{1}i", c1.Real.ToString("r"), Math.Abs(c1.Imaginary).ToString("r"))
                    End If
                End If
                Return s.Replace(",", ".")
            ElseIf fmt.Substring(0, 1).Equals("J", StringComparison.OrdinalIgnoreCase) Then
                Return c1.Real.ToString(fmtString) + " + " + c1.Imaginary.ToString(fmtString) + "j"
            Else
                Return c1.ToString(fmt, provider)
            End If
        Else
            If TypeOf arg Is IFormattable Then
                Return DirectCast(arg, IFormattable).ToString(fmt, provider)
            ElseIf arg IsNot Nothing Then
                Return arg.ToString()
            Else
                Return String.Empty
            End If
        End If
    End Function
End Class