Нахождение комплексных корней квадратного уравнения

'res - массив с корнями. Может содержать:
'1. Два вещественных корня. Функция возвращает 2
'2. Два мнимых корня. res(0) - реальная часть, res(1) - неотрицательная мнимая часть. Функция возвращает 0
'3. Один общий корень res(0), если функция вернула 1
'4. Один вещественный корень res(0) при a=0. Функция возвращает -1
'5. Ничего не содержать, если уравнение не имеет корней при a=0, b=0. Функция возвращает -2
'5. Ничего не содержать, если уравнение имеет бесконечное множество корней при a=0, b=0, c=0. Функция возвращает -3
Function Quadratic(ByRef res() As Double, a As Double, b As Double, c As Double) As Integer
    Dim d As Double 'дискриминант
    'Частные случаи
    If a = 0 Then
        If b = 0 Then
            If c = 0 Then Quadratic = -3
            Quadratic = -2
        End If
        res(0) = -c / b
        Quadratic = -1
    End If
    'Общий случай
    d = b * b - 4 * a * c
    'Корни совпадают
    If d = 0 Then
        res(0) = -b / (2 * a)
        res(1) = res(0)
        Quadratic = 1
    ElseIf d > 0 Then
        '2 реальных корня
        If b >= 0 Then
            d = (-0.5) * (b + Sqr(d))
        Else
            d = (-0.5) * (b - Sqr(d))
        End If
        res(0) = d / a
        res(1) = c / d
        Quadratic = 2
    ElseIf d < 0 Then
        'Комплексные корни
        Dim t As Double
        t = 0.5 / a
        res(0) = -b * t
        res(1) = Sqr(-d) * t
        Quadratic = 0
    End If
End Function

Sub test()
    Dim ar(1) As Double
    Dim retval As String
    Select Case Quadratic(ar, 3, 5, 6)
        Case -3
            retval = "Уравнение имеет бесконечное множество корней."
        Case -2
            retval = "Уравнение не имеет корней."
        Case -1
            retval = "Уравнение имеет один вещественный корень. X=" & ar(0)
        Case 0
            retval = "Уравнение имеет комплексный корень. X=" & ar(0) & "+i" & ar(1)
        Case 1
            retval = "Уравнение имеет два одинаковых корня. X1=X2=" & ar(0)
        Case 2
            retval = "Уравнение имеет два вещественных корня. X1=" & ar(0) & " X2=" & ar(1)
    End Select
    MsgBox retval, vbOKOnly + vbInformation, "Квадратное уравнение"
End Sub

   if a=b then

    if abs(a-b) <= 1E-15 then

if abs(a-b) <= 1E-15*a then