Quadratic equation solver

'Имя скрипта: Решалка квадратных уравнений.
'Описание: Данный скрипт автоматически за вас решит квадратное уравнение.
'Все что от вас требуется - это ввести три переменные и вы получите два корня и дискриминант.
'(C)Alex.Devil.LX 2011
Dim A, B, C, Descriminant, Sqrt_Discriminant, Result_Pls, Result_Min
 A = InputBox ("Введите переменную A" & Chr (10) & "[A]x2+bx+c=0", "Решалка квадратных уравнений: Введите A", "Введите [A]x2")
 B = InputBox ("Введите переменную B" & Chr (10) & "ax2+[B]x+c=0", "Решалка квадратных уравнений: Введите B", "Введите [B]x")
 C = InputBox ("Введите переменную C" & Chr (10) & "ax2+bx+[C]=0", "Решалка квадратных уравнений: Введите C", "Введите [C]")
 Discriminant = cint (B) ^2 - 4* cint (A) * cint (C)
 MsgBox "Дискриминант: " & Discriminant
 If Discriminant < 0 Then
 MsgBox "Дискриминант меньше 0, из него квадратного корня нельзя извлечь, следовательно уравнение корней не имеет"
 Else
 Sqrt_Discriminant = Sqr (Discriminant)
 Result_Pls = (-(cint (B)) + cint (Sqrt_Discriminant)) / (2 * cint (A))
 Result_Min = (-(cint (B)) - cint (Sqrt_Discriminant)) / (2 * cint (A))
 MsgBox "Результат при положительном дискриминанте: " & Result_Pls
 MsgBox "Результат при отрицательном дискриминанте: " & Result_Min
 End If