Thanks you guys you people are very kind, Thanks, that's one part of an assignment that is due today. I'm very happy thanks to you, I owe u heaps! But now I need more help PLEASE; it's from the same exercise. I need to make a loop until the value 0 is input, then print the total number of items weighted. for that i created a variable called counter as int. dim counter as integer Counter = 0 do until weight = 0 Counter = counter + 1 Loop weight = inputbox(...) (...code you guys gave me goes here) Loop End If (...) When I try to run it I get a runtime error '6', Overflow, but I have no idea what I'm doing wrong, please give a hand with that THANKS AGAIN! Cheers, IJ:-D ASP.NET capo