Правильный синтаксис отправки писем - VB

Формулировка задачи:

Здравствуйте.
Есть код отправки файлов:

a = sendEmailSF("", "" & Date & " Остатки", "", "D:\Отчеты\Сегодня\" & Date & " остатки.xlsx")

Public Function sendEmailSF(emailTo As String, emailSubject As String, emailBody As String, file As String, Optional VarDebug As Boolean) As Integer

Dim oMSG As Object
Dim oConfig As Object
Dim CFields As Object
Dim strBody As String

Set oMSG = CreateObject("CDO.Message")
Set oConfig = CreateObject("CDO.Configuration")
Set CFields = oConfig.Fields
Set oMSG.Configuration = oConfig

CFields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
CFields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = ""
CFields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
'CFields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
CFields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "" 'Login
CFields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "" 'password
CFields("urn:schemas:mailheader:content-language") = "windows-1251"
CFields.Update

oMSG.To = emailTo
oMSG.From = ""
oMSG.Subject = emailSubject
oMSG.BodyPart.Charset = "windows-1251"

                                                                                           oMSG.AddAttachment file
oMSG.HTMLBody = emailBody
oMSG.Send

End Function

Код писал не я. Взял где-то на этом форуе. Использовал для отправки пользователям отчетов Excel. По 1 файлу. Моно используя данный алгоритм отправлять сразу несколько файлов? Если да - то как будет выглядеть синтаксис?
Пробовал так:

a = sendEmailSF("", "" & Date & " Остатки", "", "D:\Отчеты\Сегодня\" & Date & " остатки.xlsx ; D:\Отчеты\Сегодня\" & Date & " продажи.xlsx")

Вылетает ошибка.

Решение задачи: «Правильный синтаксис отправки писем»

textual
                            Листинг программы 
                        

                            Public Function sendEmailSF(emailTo As String, emailSubject As String, emailBody As String, ParamArray files()) As Integer

Dim oMSG As Object
Dim oConfig As Object
Dim CFields As Object
Dim strBody As String

    Set oMSG = CreateObject("CDO.Message")
    Set oConfig = CreateObject("CDO.Configuration")
    Set CFields = oConfig.Fields
    Set oMSG.Configuration = oConfig
    
    CFields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
    CFields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = ""
    CFields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
    'CFields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
    CFields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "" 'Login
    CFields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "" 'password
    CFields("urn:schemas:mailheader:content-language") = "windows-1251"
    CFields.Update
    
    oMSG.To = emailTo
    oMSG.From = ""
    oMSG.Subject = emailSubject
    oMSG.BodyPart.Charset = "windows-1251"
    
    For x = 0 To UBound(files)
        oMSG.AddAttachment files(x)
    Next
        
    oMSG.HTMLBody = emailBody
    oMSG.send

End Function

a = sendEmailSF("", "" & Date & " Остатки", "", "D:\Отчеты\Сегодня\" & Date & " остатки.xlsx", "D:\Отчеты\Сегодня\" & Date & " продажи.xlsx")

                        