VB Code for Adding Values in Combo at Runtime

Dim r As Double
r = 9.9
Combo4.Clear
Do Until r >= 50
r = r + 0.1
Combo4.AddItem FormatNumber(r, 2, True, True, True)
Loop
Combo4.ListIndex = 0