Visual Basic - arreglar codigo de correos

Hola a todos, con este codigo puedo enviar un mensaje a un destinatario de Outlook, pero únicamente a uno. Cómo puedo hacer para enviar un mensaje a más de un destinatario.

Gracias

Private Sub Command1_Click()
Dim objSession As Object
Dim objMessage As Object
Dim objRecipient As Object


Set objSession = CreateObject("mapi.session")

objSession.Logon profileName:="Outlook"

Set objMessage = objSession.Outbox.Messages.Add

objMessage.subject = "Mensaje urgente para el llano!!!"
objMessage.Text = Text1.Text

Set objRecipient = objMessage.Recipients.Add

objRecipient.Name = "[email protected]"

objRecipient.Type = 1
objRecipient.Resolve

objMessage.Send showDialog:=False
MsgBox "Message sent successfully!"

objSession.Logoff
End Sub

Ojala te ayude en algo, no estoy muy seguro, pero puedes usar un TextBox adicional en tu formulario, para anotar el correo del destinatario asi:

objRecipient.Name = Val(TextBox1.Text)

Hola, gracias pero el problema que tengo es que no puedo enviar el correo a más de un destinatario.