Alargar el cuerpo de mail en VB.

Buen día.

Tengo el siguiente código de VB, para enviar mail desde excel, el problema es que quiero alargar el rango del cuerpo del mail a varias celdas y no solo a una.

O() As Boolean
Dim Email As CDO.Message
Dim Autentificion As Boolean
Set Email = New CDO.Message
Email.Configuration.Fields(cdoSMTPServer) = "smtp.gmail.com"
Email.Configuration.Fields(cdoSendUsingMethod) = 2
Email.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = CLng(465)
Email.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/" & _
"configuration/smtpauthenticate") = Abs(1)
Email.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30
Autentificacion = True
If Autentificacion Then
Email.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusername") = "Ejemplo**@gmail.com"
Email.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "ejemplo***"
Email.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
End If
Email.To = Trim([O2].Value)
Email.From = Trim([O3].Value)
Email.Subject = Trim([O4].Value)
Email.TextBody = Trim([o5].Value)
If [O6].Value <> vbNullString Then
Email.AddAttachment (Trim([O6].Value))
End If
Email.Configuration.Fields.Update
On Error Resume Next
Email.Send
If Err.Number = 0 Then
EnviarMails_CDO = True
Else
MsgBox "Se produjo el siguiente error: " & Err.Description, vbCritical, "Error nro " & Err.Number
End If
If Not Email Is Nothing Then
Set Email = Nothing
End If
On Error GoTo 0
End Function

Por lo que  pido se su apoyo  revisando el  codigo el  la parte del cuarpo del  mail.

Saludos, y gracias por leer mi pregunta.