Select multiple items and paste in cell

[jessebraswell]

I have a list box, that I have set MultiSelect to "1 - frMultiSelectMulti"
What I would like to be able to do is select multiple items and have those items appear in a single cell on my spreadsheet.
maybe something like: WA, CA, OR
Forms.ListBox.1 is the name of my object. Or do I need to use a different object type?
I would guess I need a little VBA code to make this happen.
Be gentle with me I just do simple VBA code.
Thanks, Jesseb

 

[mikerickson]

This code is for a userform's list box, it could be adapted to an ActiveX control.

Dim myString as String
Dim i As Long

With UserForm1.ListBox1
    For i = 0 To .ListCount - 1
        If .Selected(i) Then 
            myString = myString & ", " & .List(i)
        End If
    Next i
End With

Range("A1").Value = Mid(myString, 3)

By the way, why all the selected items in one cell?
If this is for printing only and the user's selection will not be used for further calculation then all in one cell is best. Otherwise each of the selected items in its own cell is better.