E ai pessoal tudo bem ?

Como consigo
Preencher um textbox com todos os itens da lista de uma combobox em uma textbox , sendo que os itens da combobox podem ser variáveis vem de lugares diferentes.

[![][1]][1]


Ficou assim 
[![][2]][2]

Código :

     For Each Linha In objClasse.atividades_secundarias
    
            ComboBox1.Items.Add(Linha.code + " - " + Linha.text)
    
            For Each VARIAVEL_DE_STRING As String In ComboBox1.Items
                txt_atividades_secundarias_encontradas.Text &= VARIAVEL_DE_STRING & vbCrLf
            Next


  [1]: https://i.sstatic.net/BL79w.png
  [2]: https://i.sstatic.net/8zsme.png