Hi
Try this. I think this is what your after.


Dim index As String
Dim itemdata As String
Dim i As Integer
Dim first As Boolean
first = True
For i = 0 To (List1.ListCount - 1)
If (List1.Selected(i)) Then
If (first) Then
itemdata = "(" & List1.List(i)
index = "(" & List1.itemdata(i)
first = False
Else
itemdata = itemdata & "," & List1.List(i)
index = index & "," & List1.itemdata(i)
End If
End If
Next i
itemdata = itemdata & ")"
index = index & ")"




David Paulson