what's wrong here?

[c@lle]

if you want to print the curSales at least one time (even if it is negative), then use following code:

[CODE]
Dim curSales As Currency

While curSales <= 0
curSales = Val(InputBox("Enter a sales amount"))
Print curSales * 0.1
Wend
[\code]

[This message has been edited by c@lle (edited 11-23-1999).]