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