MsgBox(Math.Sqrt(0 - 4))

        Dim x1, x2, bn As Double
        Dim a, b, c As Integer
 
        a = 1
        b = 6
        c = 1
 
        bn = b * -1
 
        x1 = (bn + Math.Sqrt(b ^ 2 - 4 * a * c)) / (2 *a)
        x2 = (bn - Math.Sqrt(b ^ 2 - 4 * a * c)) / (2 * a)
 
        MsgBox(x1)
        MsgBox(x2)

            int a, b, c;
            double raiz,x1,x2;
 
            a = int.Parse(textBox1.Text);
            b = int.Parse(textBox2.Text);
            c = int.Parse(textBox3.Text);
 
 
            if (a == 0)
                MessageBox.Show("Error La Variable A no puede ser 0");
            else
            {
                raiz = (b * b) - 4 * (a * c);
                if (raiz < 0)
                {
                    MessageBox.Show("Error, raiz negativa (imaginaria)");
                }
                else
                {
                    x1 = ((-1 * b) + Math.Sqrt(raiz)) / (2 * a);
                    x2 = ((-1 * b) - Math.Sqrt(raiz)) / (2 * a);
 
                    textBox4.Text = x1.ToString();
                    textBox5.Text = x2.ToString();