Here is the code,

Private Sub ListBox1_Change()

Dim outString As String, i As Long

outString = vbNullString
With ListBox1
For i = 0 To .ListCount - 1
If .Selected(i) Then outString = outString & .List(i) & ", "
Next i
End With
Range("I2").Value = outString

End Sub