Take all of the items in comb box and insert them all str

[Best Programmer]

Take all of the items in a combo box and insert them all into a string.

[S.Azish]

Dim items() As String
Dim strItems As String
Dim i As Integer
ReDim items(Combo1.ListCount) As String


For i = 0 To Combo1.ListCount - 1
items(i) = Combo1.List(i)
Next

strItems = Join(items, ";")