So i am trying to write a sub program that calculates the solutions to the
quadratic formula for any values a, b, and c. Sub quad_calc() Dim a As Single Dim b As Single Dim c As Single Dim quad_calc As Double a = Sheet1.Cells(3, 3).Value b = Sheet1.Cells(4, 3).Value c = Sheet1.Cells(5, 3).Value quad_calc = (-b + Sqr(b ^ 2 - 4 * a * c)) / (2 * a) Sheet1.Cells(6, 3).Value = quad...