Проблема с условием или вызовом процедуры

[BloodPoring]

Вобщем решил написать программу для вычисления корней кв уравнений, программу написал решил добавить к ней услови а она...
Вобещем смортите сами что не так)
вот код:
dim x1
dim D1
dim D2
dim d
dim b
dim c
dim mozg
On Error Resume Next
MsgBox("Данная программа позволит решить вам квадратные уравнения")
msgbox("Вы хотите включить мозг и решить уравнение самостоятельно?"),vbyesno
if mozg=vbyes then

if mozg=bvno then
call mozgoff
end if
end if
sub mozgoff()
a=inputbox("a-?")
b=inputbox("b-?")
c=inputbox("c-?")
D1=b*b
D2=4*a*c
d=D1-D2
if d>0 then
x1=(-b-sqr(d))/2*a
x2=(-b+sqr(d))/2*a
msgbox("x1="&x1&+ vbCrLf +"x2="&x2)
end if
if d<0 then
msgbox "Корней нет"
end if
if d=0 then
x1=(-b-sqr(d))/2*a
msgbox("x1="&x1)
end if
end sub

[Naeel Maqsudov]

Это VB или VBA?
Если VBA, то какой смысл? MS Excel решает уравнения, а также системы линеныйх и нелинейных уравнений.
--------------------------------------------------------------------------------
Добавлено сообщение
--------------------------------------------------------------------------------
Совет: 1) оформите исходный код как положено - расставьте отсупы. Возможно, после этого Вы и сами поймёте что не так 2) исключите On Error и смотрите на какой строке возникает исключение.