Se ti serve tutto in una textbox ...

codice:
    Dim s As String
    Dim i As Long
    
    s = ""
    For i = 0 To Combo1.ListCount - 1
        s = s & Combo1.List(i)
    Next i
    Text1.Text = s