Программа для решения квадратных уравнений - VB

        Dim a As Integer = TextBox1.Text
        Dim b As Integer = TextBox2.Text
        Dim c As Integer = TextBox3.Text
        Dim d As Integer = b ^ 2 - 4 * a * c
        TextBox4.Text = d
        Dim x1, x2 As Integer
 
        If d > 0 Then
            x1 = (-b + Math.Sqrt(d)) / 2 * a
            x2 = (-b - Math.Sqrt(d)) / 2 * a
        Else
            TextBox5.Text = "нет корней"
        End If
        TextBox6.Text = x1
        TextBox7.Text = x2