Решение квадратных уравнений в VB

Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim a, b, c, D, x1, x2, x As String
        a = TextBox1.Text
        b = TextBox2.Text
        c = TextBox3.Text
        D = TextBox4.Text
        x1 = TextBox5.Text
        x2 = TextBox6.Text
        If TextBox1.Text = "" Then
            TextBox1.Text = "1"
        Else
            If TextBox2.Text = "" Then
                TextBox2.Text = "1"
            Else
                If TextBox3.Text = "" Then
                    TextBox3.Text = "1"
                Else
                    D = (b ^ 2) - (4 * a * c)
                    Label4.Visible = True
                    TextBox4.Visible = True
                    TextBox4.Text = D
                    If D > 0 Then
                        x1 = (-b - Math.Sqrt(D)) / (2 * a)
                        x2 = (-b + Math.Sqrt(D)) / (2 * a)
                        Label5.Visible = True
                        Label6.Visible = True
                        TextBox5.Visible = True
                        TextBox6.Visible = True
                        TextBox5.Text = x1
                        TextBox6.Text = x2
                    Else
                        If D = 0 Then
                            x = (-b) / (2 * a)
                            TextBox5.Visible = True
                            TextBox5.Text = x
                        Else
                            If D < 0 Then
                                MsgBox("Корней нет")
                            End If
                        End If
                    End If
                End If
            End If
        End If
    End Sub
 
    Private Sub btnhelp_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhelp.Click
        Dialog1.Show()
    End Sub
 
    Private Sub btnTheory_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTheory.Click
        System.Diagnostics.Process.Start("F:\Курсовик\Теория.doc")
    End Sub
 
    Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click
        Me.Close()
    End Sub
End Class

    Dim a, b, c As String
    Dim x1, x2 As Integer
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        a = TextBox1.Text
        b = TextBox2.Text
        c = TextBox3.Text
        '-b= x1 + x2
        'c = x1 * x2
        x1 = -500
        x2 = -500
2:      For i = -501 To 501
            If x2 < 501 Then
                If x1 + x2 = -b And x1 * x2 = c Then
                    TextBox4.Text = x1
                    TextBox5.Text = x2
                    GoTo 1
                Else
                    x2 = x2 + 1
                End If
            Else
                x1 = x1 + 1
                x2 = -500
                GoTo 2
            End If
        Next
1:
    End Sub