Private Sub CommandButton1_Click()

If Not IsNumeric(TextBox1) Or Not IsNumeric(TextBox2) Or Not IsNumeric(TextBox3) Then
MsgBox "Исходные данные введены неверно или не полностью!", , "Введите числа"
Exit Sub
Else
a = CDbl(TextBox1)
b = CDbl(TextBox2)
c = CDbl(TextBox3)
End If


If (a = 0 And b = 0) Or (D < 0) Then
MsgBox "Корней нет"
Exit Sub
End If

If (a = 0 And c = 0) Or (b = 0 And c = 0) Then
TextBox5 = "0"
Exit Sub
End If

If a = 0 Then
If b <> 0 Then
TextBox5 = -c / b
Else
MsgBox "На ноль делить нельзя!"
Exit Sub
End If
End If

If b = 0 Then
If a = 0 Then MsgBox "На ноль делить нельзя!"
Exit Sub
Else
If -c / a < 0 Then
MsgBox "Нельзя извлекать корень из отрицательного числа"
Exit Sub
Else
If a = 0 Then
MsgBox "На ноль делить нельзя!"
Exit Sub
Else
TextBox5 = Sqr(-c / a) And TextBox6 = -Sqr(-c / a)
End If
End If
End If
 End If


If с = 0 Then
If a <> 0 Then
TextBox5 = "0" And TextBox6 = -b / a
Else: MsgBox "На ноль делить нельзя!"
Exit Sub
End If
End If

D = (b) ^ 2 * -4 * a * c
If a <> 0 And b <> 0 And c <> 0 Then
TextBox5 = (-b + Sqr(D)) / 2 * a And TextBox6 = (-b - Sqr(D)) / 2 * a
Else
MsgBox "На ноль делить нельзя!"
Exit Sub
End If


End Sub