VBA w Excelu, funkcje kwadratowe

czy potrafi ktos napisać w Visual Basic funkcję dla excela rozwiązującą równanie kwadratowe?

Nie wiem czy wciaz aktualne:

*Sub rownanie_kwadratowe()

Dim a As Integer
Dim b As Integer
Dim c As Integer

Dim x1 As Integer
Dim x2 As Integer

Dim delta As Integer

a = InputBox("Podaj parametr: a")
b = InputBox("Podaj parametr: b")
c = InputBox("Podaj parametr: c")

delta = b * b - 4 * a * c

Select Case delta
    Case Is > 0
        x1 = (-b - Sqr(delta)) / 2 * a
        x2 = (-b + Sqr(delta)) / 2 * a
        MsgBox "miejsce zerowe to: " & x1 & " i: " & x2
    
    Case Is = 0
        x1 = -b / (2 * x)
        MsgBox "miejsce zerowe to: & x1"
    Case Is < 0
        MsgBox "brak miejsc zerowych"
    
End Select

End Sub** *