something wrong with this code

[kazooie21]

When I run this code the numbers blur. I can't figure out why. Is it because it's infinite? Here it is:

Dim curSales as Currency
curSales = Val(Inputbox("Enter a sales amount")
Do While curSales > 0
Print curSales * .1
Loop

[KenX]

it's causing an infinite loop.
for instance, when the value is 10,
that's always greater than 0, so
the "Do" loop causes an infinite loop...

[kazooie21]

What should I do then?

------------------
kazooie21

[Serge]

What exactly are you trying to do?

------------------

Serge

Software Developer
[email protected]
[email protected]
ICQ#: 51055819