lists in vb.net, struggling with structure - vb.net

Question

I'm having a bit of trouble with a list in vb.net.
Basically what I am trying to do is send an email and the user can select from 4 options to send a carbon copy to. I started out with a series of if statements checking to see if a checkbox was checked and if it was then it added it to CC, but that seems to only ever add one. So I created ccList, the idea is it creates a list of strings and adds that to cc instead. I'm not sure if it will work but if I add a break in the second, third or fourth if, it doesn't fall into it and only ever passes through the first (if every check box is true). If I only check one then it falls into that one correctly.
If FSEmailAddress <> "" Then
Dim OutlookMessage As outlook.MailItem
Dim AppOutlook As New outlook.Application
Dim ccList As List(Of String) = Nothing
Try
OutlookMessage = AppOutlook.CreateItem(outlook.OlItemType.olMailItem)
Dim Recipents As outlook.Recipients = OutlookMessage.Recipients
Recipents.Add(FSEmailAddress)
If email1.Checked = True Then
ccList.Add("email1#some.email.com")
End If
If email2.Checked = True Then
ccList.Add("email2#some.email.com; ")
End If
If email3.Checked = True Then
ccList.Add("email3#some.email.com; ")
End If
If email4.Checked = True Then
ccList.Add("email4#some.email.com; ")
End If
OutlookMessage.CC = ccList.ToString
OutlookMessage.Subject = responseVIN.Text & " was sent back to you by " & GetUserName()
'link = archive_dir & responseVIN.Text
OutlookMessage.Body = responseVIN.Text & " was returned To you" & vbCrLf & "Navigate To the following location To view the comments In the ReadMe file:" & vbCrLf & vbCrLf & archive_dir & responseVIN.Text & vbCrLf & vbCrLf & resAdvice.Text
OutlookMessage.BodyFormat = outlook.OlBodyFormat.olFormatHTML
OutlookMessage.Send()

Answer 1

For anybody interested:
Here is the solution to both of the problems I was having:
Dim FSEmailAddress As String = ""
Dim link As String = ""
Dim ccJoin As String = ""
If FSEngineerName = "Email 1" Then
FSEmailAddress = "email1#some.email.com"
ElseIf FSEngineerName = "Email 2" Then
FSEmailAddress = "email2#some.email.com"
ElseIf FSEngineerName = "Email 3" Then
FSEmailAddress = "email3#some.email.com"
ElseIf FSEngineerName = "Email 4" Then
FSEmailAddress = "email4#some.email.com"
End If
If FSEmailAddress <> "" Then
Dim OutlookMessage As outlook.MailItem
Dim AppOutlook As New outlook.Application
Dim ccList As New List(Of String)
Try
OutlookMessage = AppOutlook.CreateItem(outlook.OlItemType.olMailItem)
Dim Recipents As outlook.Recipients = OutlookMessage.Recipients
Recipents.Add(FSEmailAddress)
If email1.Checked Then
ccList.Add("email1#some.email.com")
End If
If email2.Checked Then
ccList.Add("email2#some.email.com; ")
End If
If email3.Checked Then
ccList.Add("email3#some.email.com; ")
End If
If email4.Checked Then
ccList.Add("email4#some.email.com; ")
End If
ccJoin = String.Join("; ", ccList.ToArray())
OutlookMessage.CC = ccJoin
OutlookMessage.Subject = responseVIN.Text & " was sent back to you by " & GetUserName()
OutlookMessage.Body = responseVIN.Text & " was returned To you" & vbCrLf & "Navigate To the following location To view the comments In the ReadMe file:" & vbCrLf & vbCrLf & archive_dir & responseVIN.Text & vbCrLf & vbCrLf & resAdvice.Text
OutlookMessage.BodyFormat = outlook.OlBodyFormat.olFormatHTML
OutlookMessage.Send()
Catch ex As Exception
MessageBox.Show("Mail could Not be sent")
Finally
OutlookMessage = Nothing
AppOutlook = Nothing
End Try
End If