Another Listbox Question

[MartinLiss]

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