Visual Basic - adjuntar mas de un fichero en correo desde vb

Hola, tengo esta función para enviar correo con archivo adjunto pero solo me deja enviar un solo fichero, que tengo que cambiar para que me deje adjuntar mas de un fichero??

gracias.

Function EnvioMail(Destino, Asunto, Archivo)



Dim out As Outlook.Application



Set out = CreateObject("Outlook.Application")

With out.CreateItem(olMailItem)

.To = Destino

.Subject = Asunto

.Attachments.Add Archivo

.Send

End With



End Function



Private Sub Command1_Click()

Call EnvioMail("[email protected]", "Asunto", "Ruta fichero adjunto"

End Sub