Populate word document with listbox selections

Try something like:

Private Sub cmdOK_Click()
Dim i As Long, StrTeam As String
  If lbUsed.ListCount = 0 Then GoTo Finished
  For i = 0 To lbUsed.ListCount - 1
    lbUsed.Selected(i) = True
    StrTeam = StrTeam & " " & lbUsed.List(i, 0)
  Next
Selection.TypeText Text:="The following Team Members were used on the project..." _
  & vbCr & vbCr & Replace(Trim(StrTeam), " ", ", ") & "."
Finished:
Me.Hide
End Sub