I usually use Do Until.

Code:
Do Until Progressbar1.Value = 100
Progressbar1.Value = Progressbar1.Value + 1
DoEvents
Loop
You could also use the For..Next statement as well.

Code:
For i = 0 to 100
Progressbar1.Value = i
DoEvents
Next i