List Box Extended

[Bob Barnes]

Using the following code --

Private Sub DTMcn_AfterUpdate()
Dim vItem
AllMcns = Null
For Each vItem In DTMcn.ItemsSelected
If IsNull(AllMcns) Then
AllMcns = DTMcn.ItemData(vItem)
Else
AllMcns = AllMcns & " " & DTMcn.ItemData(vItem)
End If
'===This "duplicates the 2nd selection, triplicates the
'===3rd Selection, etc.
If IsNull(McnNames) Then
McnNames = DTMcn.Column(1)
Else
McnNames = McnNames & " " & DTMcn.Column(1)
Me.Repaint
End If
Next vItem
End Sub

I can write different code to get its values & concatenate
it. But is there a way to get this to work by changing
the code above?

TIA - Bob