Visual Basic - Ayuda, por favor

Hola, tengo este código que funciona bien:

******************************************
On Error Resume Next
With MAPISession1
.UserName = "Maria"
.SignOn
End With
With MAPIMessages1
.SessionID = MAPISession1.SessionID
.MsgIndex = -1
.RecipIndex = 0
.RecipDisplayName = "[email protected]"
.MsgSubject = "Asunto"
.MsgNoteText = "Cuerpo"
.AttachmentIndex = 0
.AttachmentType = mapData
.AttachmentPathName = "C:\texto.txt"
.Send
End With
MAPISession1.SignOff

**********************************************

Esto envia un email a una dirección y adjunta un archivo.
Necesito saber como lo envio a varias direcciones y como adjuntar mas de un fichero.
Tambien necesito saber como hacer para cambiar el nombre del que envia el mensaje, es decir en lugar de que aparezca mi nombre aparezca otro que yo le ponga, esto creo que se hace con .UserName pero lo he probado y no me sale.

Un saludos a todos.
Gracias.