'Add contacts to variable for BCC field

For Each varItem In lst.ItemsSelected

      'Check for email address
      strEMailRecipient = Nz(lst.Column(1, varItem))
      Debug.Print "EMail address: " & strEMailRecipient
      If strEMailRecipient <> "" Then
         strBCC = strBCC & strEMailRecipient & ";"
      End If

Next varItem