Number Range in a Combo Box

I am working on a program right now and I was wondering how to place a range of numbers into a dropdown combo box. I need to have the numbers 1 through 100 in one box. There must be some easier way rather than typing Combo.AddItem "1" all the way to 100. Any help would be appreciated.

Use a for loop

Code:

---

Dim i As Integer

For i = 1 to 100
  Combo.AddItem Str(i)
Next i

---