As for "How do I insert ...," it sounds like you have already achieved that. If you want to populate it then something like this:
Code:
Sub Document_new()
With ListBox1
.Clear
.MultiSelect = fmMultiSelectExtended
.AddItem "A"
.AddItem "B"
.AddItem "C"
.AddItem "D"
End With
End Sub