Add each Listbox Selection to Textbox

[coreytroy]

Private Sub ListBox3_Click()
Me.TextBox4.Value = Me.ListBox3.Value
End Sub

The above currently is what I use to add the selected ListBox item to a Textbox.

I noticed, after changing the ListBox property to Multi-Select, the code now does not work at all.

What would I need to do, to modify this to allow for all ListBox items to be placed into the textbox?

Should I also use the Listbox AfterUpdate or Exit event instead of Click event, in the instance of a change of selection?

A sample file is attached.

[humdingaling]

try this code instead

Private Sub ListBox1_Change()
    TextBox1.Text = ""

For i = 0 To ListBox1.ListCount - 1
    If ListBox1.Selected(i) = True Then TextBox1.Text = TextBox1.Text & Chr(32) & ListBox1.List(i)
Next i

End Sub

[coreytroy]

Perfect Thanks