Решение квадратного уравнения - VBA (249527)

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

Нужно написать программу, которая решает квадратное уравнение. Вроде бы элементарно, но что-то не так. Вариант с а=0 нормально считает и выводит, также выводит нет решений, если D меньше нуля, но вот если есть одно или два решения, пишет "Tipe mismatch"

Sub квадратное()
Dim a#, b#, c#, D#
a = InputBox("Введите значение коэффициента a")
b = InputBox("Введите значение коэффициента b")
c = InputBox("Введите значение коэффициента c")
If a <> 0 Then
D = b ^ 2 - 4 * a * c
If D > 0 Then
x1 = (-b - (D) ^ (1 / 2)) / (2 * a)
x2 = (-b + (D) ^ (1 / 2)) / (2 * a)
MsgBox "x1=" & x1 + "x2=" & x2
ElseIf D = 0 Then
x1 = -b / (2 * a)
MsgBox "x1=" & x1
Else
MsgBox "Данное уравнение не имеет корней"
End If
Else
x1 = -c / b
MsgBox "x1=" & x1
End If
End Sub

Решение задачи: «Решение квадратного уравнения»

textual
                            Листинг программы 
                        
                            MsgBox "x1=" & x1    &    "  x2=" & x2