Dim StrItems As String, i As Long StrItems = "|item 1|item 2|.......|" & _ "item 20|item 21|......|" & _ "item 48|item 49|item 50" For i = 1 To 50 Me.ComboBox1.AddItem Split(StrItems, "|")(i) Next