ayuda con text box

[MaxExtreme]

Según tu explicación, esto te debería bastar...

Código:

Private Sub Form_Load()
    Label1.Caption = ""
    Text1.Text = ""
    List1.AddItem "Paco"
    List1.AddItem "Pedro"
    List1.AddItem "María"
    Combo1.AddItem "Paco"
    Combo1.AddItem "Pedro"
    Combo1.AddItem "María"
End Sub

Private Sub List1_Click()
    Label1.Caption = Label1.Caption & vbCrLf & List1.Text
    Text1.Text = Text1.Text & vbCrLf & List1.Text
End Sub

Private Sub Combo1_Click()
    Label1.Caption = Label1.Caption & vbCrLf & Combo1.Text
    Text1.Text = Text1.Text & vbCrLf & Combo1.Text
End Sub

Puedes probarlo añadiendo los 4 controles y viendo el resultado (multiline a true del Text1).