VBA List Box Populate Row with all Selections

[radished]

I have a ListBox where you can select multiple values, and the values are populated in the called out cell when a button is pressed. What I need help with is getting the values to populate the row in successive cells.
So if I select Cust1, Cust2, and Cust3 I need them to populate in L3, M3, N3. If 4 Customers were selected L3, M3, N3, O3, etc. Here is the VBA for the List Box.


Sub Rectangle1_Click()

Dim xSelShp As Shape, xSelLst As Variant, I As Integer
Set xSelShp = ActiveSheet.Shapes(Application.Caller)
Set xLstBox = ActiveSheet.ListBox1
If xLstBox.Visible = False Then
xLstBox.Visible = True
xSelShp.TextFrame2.TextRange.Characters.Text = "Pickup Options"
Else
xLstBox.Visible = True
xSelShp.TextFrame2.TextRange.Characters.Text = "Select Options"
For I = xLstBox.ListCount - 1 To 0 Step -1
If xLstBox.Selected(I) = True Then
xSelLst = xLstBox.List(I) & xSelLst
End If
Next I
If xSelLst <> "" Then
Range("L3:N3") = Mid(xSelLst, 1, Len(xSelLst))
Else
Range("L3") = "N/A"
End If
End If
End Sub

Can I achieve this with how its currently written?