Como escribo el código para modificar un email antes de enviarlo en vba

Que comando puedo usar para modificar el Email antes de enviarlo

Gracias por la ayuda

Option Compare Database
Option Explicit

Private Sub btnEnvio_Click()
If EnvioEmail Then
MsgBox "MENSAJE ENVIADO", vbInformation, "Aviso"
End If
End Sub

Private Sub Lista_Click()
Me.TxtDireccion = Me.TxtDireccion.Column(1)
End Sub

Private Function EnvioEmail() As Boolean
On Error GoTo ManipulaError
Dim oApp As Outlook.Application
Dim oMail As Outlook.MailItem
If Me.TxtDireccion <> "" Then
Set oApp = CreateObject("Outlook.Application")
Set oMail = oApp.CreateItem(olMailItem)
With oMail
.To = Me.TxtDireccion
.Subject = Nz(Me.TxtAsunto, "")
.Body = Nz(Me.TxtMensaje, " ") & vbCr + vbCr + " Nombre del Grupo : " & Nz(Me.TxtNombre_del_Grupo, " ") & vbCr + vbCr + " Cantidad de Pax : " & Nz(Me.TXTCantidad_de_Pax, " ") & vbCr + vbCr + " Tipo de Servicio : " & Nz(Me.TxtTipo_de_Servicio, " ") & vbCr + vbCr + " Fecha In : " & Nz(Me.TxtFecha_in, " ") & vbCr + vbCr + " Fecha Out : " & Nz(Me.TxtFecha_OUT, " ") & vbCr + vbCr + Nz(Me.TXTMensaje_2, " ") & vbCr + vbCr + Nz(Me.TXTFirma, " ")
.Importance = olImportanceHigh
.Send
End With
Set oApp = Nothing
EnvioEmail = True
Else
MsgBox "ESPECIFIQUE UNA DIRECCION DE CORREO ELECTRONICO", vbExclamation, "Aviso"
Me.TxtDireccion.SetFocus
End If
Salir:
Exit Function
ManipulaError:
MsgBox Err.Number & " : " & Err.Description
End Function