Selección múltiple de un listbox en un textbox

Legato te paso la solución:
Tenemos dentro del form un botón, un listbox (multiselect) y un textbox.
Por un lado tenemos el evento INITIALIZE que carga el listbox con doce valores de la columna A de la hoja1

Private Sub UserForm_Initialize()
ListBox1.RowSource = "hoja1!a1:a12"
End Sub

Y por otro lado tenemos la macro que funciona al pulsar el botón:

Private Sub CommandButton1_Click()
For por = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(por) = True Then
lista = lista & "," & ListBox1.List(por, 0)
End If
Next
lista = Mid(lista, 2, Len(lista) - 1)
TextBox1.Value = lista
End Sub

Haz la prueba: cuando se abra el form selecciona varios elementos del listbox y pulsa el botón.
No olvides finalizar la consulta