Hi. I'm trying to get percentages from 1% to 100% to show in a LISTBOX but what is happening is at .81 to 100 percent, the number is looking like this: 810000001 and so on for .82, .83... Below is the code I am using and need help. How someone can help. Thanks for efforts all. Nick

For intper = 0.01 To 1 Step 0.01
List5.AddItem IIf(intper > 0, Trim(Str(intper)), "" & Trim(Str(intper)))
Next intper

just use this code:

Dim intper As Integer For intper = 1 To 100     List5.AddItem Replace(Format(intper / 100, "#.00"), ",", ".") Next

you had the error because the representation of a decimal number is not always exact due to the floating point binary conversion.

Replace function is used to convert "," in "."

hope this helps

____________________________
AndreaVB

That worked fine. Thank you for the correct code and reason why it did not work. - Nick