Public Function solveP(a, b, c)
    solveP = (-b + sqr(b^2 - 4*a*c))/(2*a)
End Function