The following code gives me an infinite loop. How should I change this so it won't be infinite?

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