Hello
If you are pulling your values from a worksheet, you may consider this:
With Worksheets("Sheet1")
For i = 1 To .Range("A65536").End(xlUp).Row
Me.ComboBox1.AddItem (Format(.Cells(i, 1), "0.000"))
Next i
End With

HTH
Cordially
Pascal