Enviar datos adjuntos

Hola a todos tengo este codigo para enviar un email

Dim objMail As Outlook._MailItem

'* Inicializamos nuestra apliación OutLook

m_OutLook = New Outlook.Application()

'* Creamos una instancia de un objeto tipo MailItem

objMail = m_OutLook.CreateItem(Outlook.OlItemType.olMailItem)

'* Asignamos las propiedades a nuestra Instancial del objeto

'* MailItem

objMail.To = TxtPara.Text

objMail.Subject = TxtAsunto.Text

objMail.Body = TxtCuerpo.Text

'* Enviamos nuestro Mail y listo!

objMail.Send()

'* Desplegamos un mensaje indicando que todo fue exitoso

MessageBox.Show("Mail Enviado", MessageBoxButtons.OK,
MessageBoxIcon.Exclamation)

Y mi pregunta es la siguiente,¿como se ahria para poder mandar losa rchivos
que se adjunten al correo y que se seleccionan por medio de un openfiledialog?

Muchas gracias de antemano.