Dim sString, sItem1, sItem2, sItem3 as String
sString = sItem1 & " - " & sItem2 & " - " & sItem3
Listbox.Additem sString
'or
'set the column property to 3 and us the vbTab to separate the items
Listbox.Additem sItem1 vbTab sItem2 vbTab sItem3