Another Listbox Question

Thanks for the previous help, Now, how would i reverse that and send all the list to a textbox separated by ";" i tried:

text1.text = List1.listindex & ";"

but that wasnt it, I need to send All of the list, just not one part. Thanks

Code:

---

Dim intIndex As Integer
   
    For intIndex = 0 To List1.ListCount - 1
        If List1.Selected(intIndex) Then
            Text1.Text = Text1.Text & List1.List(intIndex) & ";"
        End If
    Next intIndex
   
    Text1.Text = Left(Text1, Len(Text1.Text) - 1)

---

------------------
Marty

That did not work, sorry. Any clue how to fix it, and get it to send ALL the info, not just the selected? thanks!

Just remove the if statement will work!