For i = 0 To lstRecipients.Items.Count - 1 If lstRecipients.Items(i).Selected Then tmp = lstRecipients.Items(i).Value 'This is the selected users ID from tblLogin (not email) lstRecipients.Items(i).Selected = False End If Next