народ помогите найти ошибку в моей программе

программа написана на языке vbscript
в 6 строчке "if (x>=0) and (x<=m) then" логическая ошибка
если в 6 строчке место m поставить 100 то всё будет работать почти так как и задумывалось
но я ведь уже определил чему равен m
почему программа не видет чему равен m?

вот код программы:

dim m,x,y,a,z,i,d
m = 100
x = 0
do
x = inputbox ("На вашем счету осталось " & m & " монет! " & "Ваша ставка")
if (x>=0) and (x<=m) then
y = msgbox ("Вы ставите на 1-18?",36)
randomize
a=INT(RND()*37 )
if (a<19) and (a>0) then z = 0
if (a<38) and (a>18) then z = 1
if (a=0) then z = 3
if (y=6) and (z=0) then i=1
if (y=6) and (z=1) then i=0
if (y=7) and (z=0) then i=0
if (y=7) and (z=1) then i=1
if (z=3) then i=0
msgbox ("Выпало число " & a)
if (i=0) then
m = m - x
msgbox ("Вы проиграли " & x & " монет! ")
end if
if (i=1) then
m = m + x
msgbox ("Вы выиграли " & x & " монет! ")
end if
if (m<=0) then
msgbox ("Вы проиграли")
msgbox ("Конец игры")
exit do
end if
if (m>=1000) then
msgbox ("Вы выиграли")
msgbox ("Конец игры")
exit do
end if
d = msgbox ("Желаете продолжить? ",36)
if (d=7) then exit do
else
msgbox ("Вы не можете поставить больше денег чем у вас есть! ")
end if
loop

мне кажется что я не правельно ввёл переменную m

Влад Плесовских напиши в блокноте и сохрани в файл с расширением .vbs
сам поймёшь в чём проблема