Looping Question

[Buzby]

dim LastNumber as integer
dim PreviousNumber as integer
dim CurrentNumber as integer
 
listbox1.clear
listbox1.additem 1
 
lastnumber=1
previousnumber=0
currentnumber=0
 
while currentnumber<=100
  currentnumber=previousnumber+lastnumber
  listbox1.additem currentnumber
  previousnumber=lastnumber
  lastnumber=currentnumber
wend

Not in front of VB, so I can't test this, but it looks ok to me.
How many marks do you get for this question - I think you owe me some!