[Resolvido]erro na Condição no Attachments.Add enviando varios anexos ao mesmo tempo

Bom dia!

Sou leigo no assunto, preciso de ajuda!!!
Pessoal por favor, preciso de ajuda, possuo uma tabela com nome, email de cada colaborador responsavel por tua area, e outras variaveis, criei o codigo para envio de um unico email para anexar varios arquivos, dependendo do colaborador ele possui até 9 arquivos outros 2, 3 e assim por diante, entao criei na tabela os campos

arquivo1
arquivo2
arquivo3
arquivo4
arquivo5
arquivo6
arquivo7
arquivo8
arquivo9

exemplo:

nome email arquivo1 arquivo2 arquivo3 .....
teste teste@teste.com.br teste1 teste2 teste3
maria maria@maria teste10 teste4


Porém quando no codigo no .Attachments.Add e ele nao localiza quando o espaco é vago, da erro ja tentei diversas formas mas nao consigo uma saida, alguem por favor me ajude...

desde a agradeço.

Sub ENVIAR()
Dim OutApp As Outlook.Application
Dim OutMail As Outlook.MailItem
Dim DB As DAO.Database
Dim TB As DAO.Recordset
Dim file As Variant
Set DB = CurrentDb
Set TB = DB.OpenRecordset("Tbl_EMAIL")
On Error GoTo trata
TB.MoveFirst

Do While Not TB.EOF
'file = Dir("A:\Caminho da rede\" & Replace(TB!arquivo1) & ".xls")
'file = Dir("A:\Caminho da rede\" & Replace(TB!arquivo2) & ".xls")
'file = Dir("A:\Caminho da rede\" & Replace(TB!arquivo3) & ".xls")
'file = Dir("A:\Caminho da rede\" & Replace(TB!arquivo4) & ".xls")
'file = Dir("A:\Caminho da rede\" & Replace(TB!arquivo5) & ".xls")
'file = Dir("A:\Caminho da rede\" & Replace(TB!arquivo6) & ".xls")
'file = Dir("A:\Caminho da rede\" & Replace(TB!arquivo7) & ".xls")
'file = Dir("A:\Caminho da rede\" & Replace(TB!arquivo8) & ".xls")
'file = Dir("A:\Caminho da rede\" & Replace(TB!arquivo9) & ".xls")


If file = "" Then
GoTo trata
End If

Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(olMailItem)

With OutMail
.To = TB!email
.Subject = "texto - " & TB!Data & " - " & TB!DEPTO

.HTMLBody = "" & TB!nome & "

Segue ... " & TB!mes
.HTMLBody = .HTMLBody & "

É importante..."
.HTMLBody = .HTMLBody & "

O acumulo " & TB!nova_data & "."
.HTMLBody = .HTMLBody & "

Atenciosamente.

"

'meu problema começa aqui

.Attachments.Add "A:\Caminho da rede\" & (TB!arquivo1) & ".xls"
.Attachments.Add "A:\Caminho da rede\" & (TB!arquivo2) & ".xls"
.Attachments.Add "A:\Caminho da rede\" & (TB!arquivo3) & ".xls"
.Attachments.Add "A:\Caminho da rede\" & (TB!arquivo4) & ".xls"
.Attachments.Add "A:\Caminho da rede\" & (TB!arquivo5) & ".xls"
.Attachments.Add "A:\Caminho da rede\" & (TB!arquivo6) & ".xls"
.Attachments.Add "A:\Caminho da rede\" & (TB!arquivo7) & ".xls"
.Attachments.Add "A:\Caminho da rede\" & (TB!arquivo8) & ".xls"
.Attachments.Add "A:\Caminho da rede\" & (TB!arquivo9) & ".xls"


.Display
'.Send

End With
trata:
Set OutMail = Nothing

Set OutApp = Nothing

TB.MoveNext


Loop

End Sub