RESOLVED - Return a String of Selected Items in Listbox

[Suidae]

I have a listbox that is populated with years.

2001 <-Selected
2002 <-Selected
2003
2004 <-Selected
2005

I want to return a string based upon the selections made.

Example: 2001,2002,2004

    Dim z As Integer
    Dim Ystr as String

      For z = 0 To (lstForecastYears.ListCount - 1)
        If lstForecastYears.Selected(z) = True Then
            Ystr =  lstForecastYears.List(z)
        End If
            Msgbox Ystr
        Next

I'm returning the correct selections but how do I get into a string format with the delimiters?

Thanks.

[manavo11]

Try this :

Dim z As Integer
      Dim Ystr as String
 
      Ystr = ""
 
      For z = 0 To (lstForecastYears.ListCount - 1)
        If lstForecastYears.Selected(z) = True Then
            Ystr =  Ystr & lstForecastYears.List(z) & ","
        End If
      Next
 
      Ystr = Left$(Ystr, Len(Ystr) - 1) 'This is just to remove the last comma
 
      Msgbox Ystr

[Suidae]

Perfect!

Thank you!

[manavo11]

You're welcome