Show the value of a multi-select list box selection

[BruceM]

I have the following code (adapted from Allen Browne) to loop through items
selected in a multi-select list box and add them to a collection:

Dim varItem As Variant
Dim colAB As New Collection

lngParent = Me.SessionID

'Loop through the items Selected in the list box.
With Me.lstAttendees
For Each varItem In .ItemsSelected
If Not IsNull(varItem) Then
colAB.Add .ItemData(varItem)
Debug.Print .ItemData(varItem)
End If
Next
End With

The list box Row Source is EmployeeID, FullName (concatenated field)

The bound column is 1, so ItemData is the EmployeeID. How can I get
Debug.Print to show the second column (Column(1)? Debug.Print .Column(1)
shows only the last name selected. If three names were selected it shows
the third name three times.

This code as posted does not do anything. I'm just doing some
experimentation, and trying to figure out the syntax needed.

 

[Douglas J. Steele]

Close:

Debug.Print .Column(1, varItem)

 

[BruceM]

Ah, so that's where the Row argument comes in. That did the trick.
Thanks.