Private Sub AñadirItem() 

Combo1.AddItem "Item 1" 

Combo1.AddItem "Item 2" 

Combo1.AddItem "Item..." 

Combo1.AddItem "Item n" 

End Sub