You can pad the numbers and artificially right-align them.
Code:
Dim I As Integer
For I = 0 To 100 Step 1
   List1.AddItem Space(5 - Len(CStr(I))) & CStr(I)
Next
.