Ошибка в программном коде "End if without block if" в VBA Excel

Формулировка задачи:

Здравствуйте, учусь в университете и задали задание "Решение квадратного уравнения ax2+bx+c=0 . В программе учтите все возможные проверки и допущения:A=0;B=0;C=0;A=b=0;A=c=0;A=c=0" через форму в VBA Excel.
Ниже прикрепил скрин с формой как она выглядит. Код написан для кнопки "Счет". Когда нажимаю на кнопку выдает ошибку в VBA "End if without block if" , как бы я не пытался исправить, всё равно где-то она появляется. Остановился на этом варианте кода. Красным отметил где программа останавливается и выдает ошибку. Поэтому прошу помощи у вас как исправить и возможно как-то дополнить код, чтобы он исправно работал. Если нужна какая-то дополнительная информация пишите прикреплю дальше в теме. Заранее спасибо за ответы и помощь.

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

Решение задачи: «Ошибка в программном коде "End if without block if" в VBA Excel»

textual
                            Листинг программы 
                        
                            If условие Then оператор