From Listbox to Word

Hi, Im using alistbox to insert names in a word document, im' using the following code but it only inserts the first name.


Code:
Dim strList1 As String
strList1 = PODERES.ListBox1.List(PODERES.ListBox1.ListIndex)
ActiveDocument.Bookmarks("p91").Range.Text = strList1


My question is, how can i do to insert ALL items in the listbox in word, the thing is i need them to be separated by comas and the last one by "and". Ex:
ITEM1, ITEM2, ITEM3 and ITEM4,

Of course, if theres only 1 item i need the "and" to be deleted. Ex:
ITEM1

THANK YOU VERY VEERY MUCH!!