[RESOLVED] Add more than one item to Combo.Text

[newbie2]

Hello VbForums
When we click an item in a combobox, only one seleccted item is displayed in the combo text.
I want to display 3 items.
I created an invisible textbox but it didn't work.

Private Sub Combo1_Click()
n = n + 1
 Select Case n
      Case 1
        Text1= Text1 + Combo1.Text
 Case 2
        Text1 = Text1 + "    " & Combo1.Text
       Case 3
        Text1 = Text1 + "    " & Combo1.Text
    End Select
 Combo1.text = Text1 .Text
End Sub

In Text1_Change event, I tried this but without success.

Private Sub Text1_Change()
Combo1.text = Text1 .Text
End Sub

Thanks