---

If D < 0 Then
        ' Если D < 0
        TextBox6.Text = "Уравнение не имеет действительных корней"
        
    ElseIf D = 0 Then
        ' Если D = 0
        x1 = -b / (2 * a)
        TextBox6.Text = "Уравнение имеет один корень: x = " & Round(x1, 2)
        
    Else
        ' Если D > 0
        x1 = (-b + Sqr(D)) / (2 * a)
        x2 = (-b - Sqr(D)) / (2 * a)
        TextBox6.Text = "Уравнение имеет два корня: x1 = " & Round(x1, 2) & "; x2 = " & Round(x2, 2)
    End If