Having problems sending an auto email using listbox items

I am trying to send an email(Auto email function) using items in a list box. You can select one or more items to send. The problem I am having is it keeps selecting the first item in the list box instead of what I selected. I am setting this equal to a variable called cities where. How do I get this to work to show the items I selected on the To =  "" & cities where & "" line. Here is my code:

 

 Function AutoEmail()
Dim objMailMessage As MailMessage
Dim strHtmlBody As String
conn = New SqlClient.SqlConnection(strconn)
conn.Open()
Dim currentAll As String
Dim strSQL = "SELECT d.group_descr, a.first_na ...