Квадратное уравнение

[Mrsqler]

При запуске проги появляется ошибка
Run-time error 6:
Overflow
Вот код

Private Sub calckButtonUraw_Click()
Dim ValueA As Single
Dim ValueB As Single
Dim ValueC As Single
Dim D As Single

D = ValueB * ValueB - 4 * ValueA * ValueC
If D >= 0 Then Result = (-ValueB + Sqr(D)) / (2 * ValueA)
Result = (-ValueB - Sqr(D)) / (2 * ValueA)
If D < 0 Then Result = "ошибка,D<0"

End Sub

По идее результат должен выводиться в TextBox,т.е в Result,но в место этого какие бы я значения не вводил,появляется ошибка.

[doober]

Все верно в тексте ошибки.
каков результат деления 0/0
Вы же переменным нне присваиваете значений