Enviar Correo desde VB6 usando correo de Office

Escribo con la finalidad de solicitar ayuda.

Estoy creando un programa en Visual Basic 6.0, ya tengo todos los campos y el fomr listo y suo un código para envío el cual es el siguiente:

Private Sub cmdSend_Click()
Dim objOutlook As Outlook.Application
Dim objMailItem As Outlook.MailItem
Dim objATCH As Outlook.Attachments
Dim Cuerpo As String
Set objOutlook = CreateObject("outlook.application")
Set objMailItem = objOutlook.CreateItem(olMailItem)
objMailItem.SentOnBehalfOfName = Correo_De
objMailItem.To = txtPara.Text
objMailItem.CC = txtCc.Text
objMailItem.BCC = txtCco.Text
objMailItem.Subject = txtAsunto.Text
Cuerpo = Cuerpo & "     " & Me.lblSaludo1.Caption & vbCr
Cuerpo = Cuerpo & "            " & Me.lblSaludo2.Caption & vbCr & vbCr & vbCr
Cuerpo = Cuerpo & "               " & Me.lblNombres.Caption & "       " & Me.Text1.Text & vbCr
Cuerpo = Cuerpo & "               " & Me.lblCedula.Caption & "         " & Me.Text2.Text & vbCr
Cuerpo = Cuerpo & "               " & Me.lblFicha.Caption & "               " & Me.Text3.Text & vbCr
Cuerpo = Cuerpo & "               " & Me.lblEmpresa.Caption & "                           " & Me.Text4.Text & vbCr
Cuerpo = Cuerpo & "               " & Me.lblGerencia.Caption & "                          " & Me.Text5.Text & vbCr
Cuerpo = Cuerpo & "               " & Me.lblDepartamento.Caption & "                 " & Me.Text6.Text & vbCr
Cuerpo = Cuerpo & "               " & Me.lblCargo.Caption & "                               " & Me.Text7.Text & vbCr
Cuerpo = Cuerpo & "               " & Me.lblIngreso.Caption & "             " & Me.Text8.Text & vbCr
Cuerpo = Cuerpo & "               " & Me.lblEgreso.Caption & "              " & Me.Text9.Text & vbCr
Cuerpo = Cuerpo & "               " & Me.lblPreaviso.Caption & "                           " & Me.Text10.Text & vbCr
Cuerpo = Cuerpo & "               " & Me.lblMotivo.Caption & "                             " & Me.Text11.Text & vbCr & vbCr & vbCr
Cuerpo = Cuerpo & Me.lblDespedida.Caption & vbCr & vbCr & vbCr
Cuerpo = Cuerpo & Me.Image1 & vbCr & vbCr & vbCr
Cuerpo = Cuerpo & Usuario & vbCr & vbCr & vbCr  ' la variable del usuario que se firmo jejejejej
objMailItem.Body = Cuerpo & vbCr
objMailItem.BodyFormat = olFormatHTML
objMailItem.Send
    MsgBox "Correo Electronico Enviado ", vbInformation, "Los mejores Programando a distancia jejejej"
Set objOutlook = Nothing
End Sub

me sucede que todo el cuerpo del mensaje lo adjunta tal cual lo requiero y se envia perfecto con el Outlook 2010 del oficce adaptado a la empresa.

El problema se encuentra al momento de adjuntar la imagen para la firma en el campo:

Cuerpo = Cuerpo & Me.Image1 & vbCr & vbCr & vbCr

Quien me podría ayudar para que se inserte la imagen!