List Box 1

[AmritPaulSingh]

I have a multiple selection list box. How do I get the value of the selection of the list box in a text box?

My lst box (lstPP) contains the following values:
1
2
3
4
5

If I select 1, the text box should get the value 1
If I select 1 and 3, the textbox should get the value 1,3

Help.
Thanks

 

[yduckfr]

Enter the following code in the after update event of the listbox

Dim strResult As String
Dim varItm As Variant

For Each varItm In lstPP.ItemsSelected
     strResult = strResult & lstPP.ItemData(varItm)
Next varItm
TextBox = strResult