Listbox selection

[vmjan02]

I have this code, if the user selects an item from combobox5 and from listbox3 user can select multiselect option. with the current code the output is in one single cell.
Current code output:- j11 its Road:- 1,2 (considering J11 cell as last empty cell in coloum J)

Dim WaxU As String
Dim WaxI As Long
For WaxI = 0 To Me.ListBox3.ListCount - 1
If Me.ListBox3.Selected(WaxI) = True Then
If WaxU = "" Then WaxU = Me.ListBox3.List(WaxI) Else WaxU = Me.ComboBox5.Value & "-" & WaxU & ", " & Me.ListBox3.List(WaxI)
Me.ListBox3.Selected(WaxI) = False
End If
Next
ws.Range("J" & LastRow).Offset(0, 0).Value = Me.Label63.Caption & ":- " & WaxU


Is it possible or a way as the muli selection output will be one below the other --
in cell j11 Road:-1
in cell j12 Road:-2

 

[Fluff]

Maybe something like

Dim WaxU As String
Dim WaxI As Long
For WaxI = 0 To Me.ListBox3.ListCount - 1
   If Me.ListBox3.Selected(WaxI) = True Then
      ws.Range("J" & lastRow).Value = Me.ComboBox5.Value & "-" & Me.ListBox3.List(WaxI)
      lastRow = lastRow + 1
      Me.ListBox3.Selected(WaxI) = False
   End If
Next

 

[vmjan02]

Great its working fine.

 

[Fluff]

You're welcome & thanks for the feedback