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