Задача: по известному алгоритму решения квадратного уравнения написать программку на VBA. Чего я и не могу сделать. Помогите!  

Сам что-нить уже написАл? код сюда... или НЕ написАл? тогда пиши и код сюда... или НЕ СОБИРАЛСЯ писАть сам? тогда вали в "Центр помощи". 

что-то не сообразил сразу. Вот что есть:

Public Sub Решаем()
Sheets("Уравнение").Select
Range("B3:B5").Select
Selection.ClearContents
'ввод коэффициентов
     Dim C As Single
   Dim A As Single
   Dim B As Single
       Range("B5").Select
       C = Range("B5").Value
        ActiveCell.Value = InputBox("Введите коэффициент С", "Исходные данные")
    Range("B4").Select
         B = Range("B4").Value
        ActiveCell.Value = InputBox("Введите коэффициент В", "Исходные данные")
     Do While True
        Range("B3").Select
         ActiveCell.Value = InputBox("Введите коэффициент А", "Исходные данные")
        A = Range("B3").Value
    If A <> "0" Then Exit Do
        MsgBox "Повторите ввод коэффициента А", vbOKOnly_Or_vbCritical, "Исходные данные"
    Loop
    'нахождение корней
   Sheets("Уравнение").Select
           Dim D As Single
           Dim X1 As Single
           Dim X2 As Single
           Range("D3:D5").Select
            Selection.ClearContents
              Range("D3").Select
            ActiveCell.FormulaR1C1 = "=R[1]C[-2]^2-4*RC[-2]*R[2]C[-2]"
              D = Range("D3").Value
    If D > 0 Then
      If D = 0 Then
        Range("D4").Select
        ActiveCell.FormulaR1C1 = "B / 2 * A"
        X1 = Range("D4").Value
        Range("D5").Select
        X1 = X2
        X2 = Range("D5").Value
       Else: X1 = (B + D) / 2 * A
        X1 = Range("D4").Value
      End If
    End If
      
      
End Sub
Не знаю, какими инструментами пользоваться