Transpose Vertical List from Listbox

I am traying to make a horizontal list on sheet2 from a listbox on a userform, something is missing, please help

Dim lItem As Long
For lItem = 0 To ListBox2.ListCount - 1
Sheet2.Range("A1048576").End(xlUp).Offset(0, 1).Value = WorksheetFunction.Transpose(ListBox2.List(lItem))
Next