Combobox com múltipla seleção não envia por e-mail

Private Function fncCapturaLista(id As Long) As String
Dim rs As Recordset
Dim frs As Recordset
Dim seq$

Set rs = CurrentDb.OpenRecordset("SELECT email3 FROM tb_torque WHERE código = " & id & ";")
Set frs = rs!Email3.Value

Do While Not frs.EOF
   seq = seq & frs!Value.Value & ";"
   frs.MoveNext
Loop
fncCapturaLista = seq
Set rs = Nothing
Set frs = Nothing
End Function

Private Sub btnAdiciona_Click()
'On Error GoTo ErrorHandler

Dim prazo As Date
Dim Entrada As Date
Dim strLista$

DoCmd.RunCommand acCmdSaveRecord
strLista = fncCapturaLista(Me!Código)
If strLista = "" Then
    MsgBox "Selecione os email's ...", vbInformation, "Aviso"
    Exit Sub
End If

[Data da Falha].SetFocus
Entrada = CDate([Data da Falha].Text)
prazo = DateAdd("d", 30, Entrada)
[Prazo Previsto].SetFocus
[Prazo Previsto].Text = CDate(prazo)

Set appOutlook = CreateObject("Outlook.Application")
Set MailOutLook = appOutlook.CreateItem(olMailItem)
With MailOutLook
.To = ("brunobmfs29@gmail.com")
.CC = strLista
...
...