Como hago para enviar varios archivos adjuntos por email con macro excel

Quisiera poder adjuntar varios archivos en un correo de lotus notes que hago automaticamente con una macro en excel. Anexo la macro que conseguí en la red y estoy utilizando, la cual funciona muy bien con un solo archivo, pero requiero cargar entre 1 a 5 archivos por correo. Agradezco toda la colaboración en esto proceso.

Public Sub SendNotesMail(Subject As String, Recip2, BodyText As String, attachment As String)

Dim Maildb As Object
Dim UserName As String
Dim MailDbName As String
Dim MailDoc As Object
Dim AttachME As Object
Dim Session As Object
Dim EmbedObj As Object
Dim SaveIt As Boolean
Dim WasOpen As Integer
SaveIt = True
Set Session = CreateObject("Notes.NotesSession")
UserName = Session.UserName
MailDbName = Left$(UserName, 1) & Right$(UserName, (Len(UserName) - InStr(1, UserName, " "))) & ".nsf"
Set Maildb = Session.GETDATABASE("", MailDbName)
If Maildb.IsOpen = True Then
WasOpen = 1
Else
WasOpen = 0
Maildb.OPENMAIL
End If
Set MailDoc = Maildb.CREATEDOCUMENT
MailDoc.Form = "Memo"
MailDoc.sendto = Recip2
MailDoc.Subject = Subject
MailDoc.Body = BodyText
MailDoc.SAVEMESSAGEONSEND = SaveIt
If attachment <> "" Then
Set AttachME = MailDoc.CREATERICHTEXTITEM("Attachment")
Set EmbedObj = AttachME.EMBEDOBJECT(1454, "", attachment, "Attachment")
MailDoc.CREATERICHTEXTITEM ("Attachment")
End If
MailDoc.PostedDate = Now() '
MailDoc.SEND 0, Recip2
'Clean Up'
Range("A1").Select
Application.CutCopyMode = False
Set Maildb = Nothing
Set MailDoc = Nothing
Set AttachME = Nothing
Set EmbedObj = Nothing
If WasOpen = 1 Then
Set Session = Nothing
ElseIf WasOpen = 0 Then
Session.Close
Set Session = Nothing
End If
MsgBox "El mensaje de correo se ha enviado correctamente", vbOKOnly
End Sub

_________________________________________________________________________

Sub mensaje()
SendNotesMail "Prueba", "[email protected]", "Hola", ""
End Sub