Stringing ListBox Selections

[Cohen227]

I am trying to put the items selcted in a multiselect ListBox into a String. I am using the following code but it is not working properly. It will not display each selection, only one selection multiple times. Here is my code:
Dim varItem As Variant
Dim txtTemp As String
For Each varItem In Me.Hospital_Characteristics.ItemsSelected
txtTemp = txtTemp & Me.Hospital_Characteristics.Column(0) & " "
Next
Me.HCString = txtTemp

Any Ideas???Thanks!

 

[nickjar2]

Hi,

This is the code I am currently using in Excel:

iRow = lstInvoices.ListCount - 1

'iElement = 0

' First count the number of rows selected
For i = 0 To iRow
If lstInvoices.Selected(i) Then
' populate array with filename
' iElement = iElement + 1
txtTemp = txtTemp & lstInvoices.List(i)
End If
Next i

Hope this is ok. If not, just let me know.

Nick (Everton Rool OK!)