sAttachment - список файлов разделеных  ";"

            Dim aFileList() As String, i As Integer
            Dim ilFileList As IList

            aFileList = sAttachment.Split(";")
            For i =  0  To aFileList.Length -  1  
                Try
                    If fi.Exists(aFileList(i)) Then
                        ilFileList(i).Add = aFileList(i) ' пашет, но iFileList получился не массив обьектов, а массив строк :(
                    End If

                    oMail.Attachments.Add = ilFileList(i) ' не пашет тк iFile должен быть массив обьектов
                Catch ex As Exception
                    sErr = ex.ToString
                    ex = Nothing
                End Try
            Next