---

Private Sub CommandButton1_Click()
    Dim a As Double, b As Double, c As Double, D As Double
    Dim x1 As Double, x2 As Double

    a = Val(TextBox1.Text)
    b = Val(TextBox2.Text)
    c = Val(TextBox3.Text) ' Добавлено считывание c

    D = b ^ 2 - 4 * a * c

    If D < 0 Then
        txtResult.Text = "Уравнение: " & a & "x^2 + " & b & "x + " & c & " = 0" & vbNewLine & _
                         "Дискриминант: " & D & vbNewLine & "Ответ" & vbNewLine & "Уравнение не имеет действительных корней"
    ElseIf D = 0 Then
        txtResult.Text = "Уравнение: " & a & "x^2 + " & b & "x + " & c & " = 0" & vbNewLine & _
                         "Дискриминант: " & D & vbNewLine & "Ответ" & vbNewLine & "Уравнение имеет один корень: " & vbNewLine & "x = " & (-b / (2 * a))
    Else
        x1 = (-b + Sqr(D)) / (2 * a)
        x2 = (-b - Sqr(D)) / (2 * a)

        txtResult.Text = "Уравнение: " & a & "x^2 + " & b & "x + " & c & " = 0" & vbNewLine & _
                         "Дискриминант: " & D & vbNewLine & _
                         "Уравнение имеет два корня" & vbNewLine & _
                         "x1 = " & x1 & vbNewLine & _
                         "x2 = " & x2
    End If
End Sub