Multiselect Listbox Transfer

I have a multiselect list box in a userform and need to transfer all the selected items in the list to Sheet2 Column D starting in the first empty cell.

I am using the following

Private Sub CommandButton1_Click()

Dim iListCount As Integer
Dim iRow As Integer
Dim rStartCell As Range

Set rStartCell = Sheet2.Range("D65536").End(xlUp).Offset(1, 0)

For iListCount = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(iListCount) = True Then
ListBox1.Selected(iListCount) = False
iRow = iRow + 1
rStartCell.Cells(iRow, 1).Value = _
ListBox1.List(iListCount, 0)
End If
Next iListCount
Set rStartCell = Nothing

End Sub

My problem is that this is transfering just the first selected item from the listbox to the first empty cell in Sheet2 column D but the rest of the selections are not transfered.