Copy all items from listbox and paste to word document

[subrota]

I have a listbox with items . Now I want to copy the items as a list and paste to the word document. I can not select the listbox all item as string.

Dim strClipText As DataObject
'Dim strInputText As String
'Set strClipText = New DataObject
'
'strInputText = listbox1.text
'
'strClipText.SetText strInputText
'strClipText.PutInClipboard