Visual Basic - MapiMessages urgente porfi

pregunta como se adjuntan 2 o mas archivos a un correo con un objeto "MapiMessages" programado desde visual basic, con un archivo me resulta.
gracias de antemano

Espero que este Código te sirva...

ContadorAttach = 0
For ContadorDocs = 0 To UBound(ArregloDocumentos, 1)
MAPIMessages1.AttachmentIndex = ContadorAttach
MAPIMessages1.MsgNoteText = MAPIMessages1.MsgNoteText & " "
MAPIMessages1.AttachmentPosition = ContadorAttach
'La Posicion 0 del arreglo contiene la ruta de los documentos
'en el disco
MAPIMessages1.AttachmentPathName = ArregloDocumentos(0)
ContadorAttach = ContadorAttach + 1
Next lcint_ContadorDocs