Envío de mensaje de Notes desde Visual Basic

Estoy tratando de enviar un mensaje desde Visual BAsic por Notes, he conseguido enviar usuarios mensaje con asunto y fichero adjunto, pero lo que no consigo es incluir un cuerpo de mensaje.
El código que utilizo es el siguiente:
*** variables del proyecto ***
Dim MiFichero As String
Dim DirEmail As String
Dim WMail As String
Dim SesLotus As Object
Dim Doc As Object
Dim LotObject As Object
Dim DireccionMAil As String
Dim RutaMail As String
Dim db As Object
Dim RstItem As Object
** asignacion de objetos Notes ***
Set SesLotus = CreateObject ("Notes.NotesSession")
Set db = SesLotus.GETDATABASE ("", "names.nsf")
Set Doc = db.CREATEDOCUMENT()
MiFichero = <path y fichero a enviar>
WMail = <Dirección de correo a enviar>
Doc.subject = <Asunto del mensaje>
Set RstItem = Doc.CREATERICHTEXTITEM(Doc, "Body")
Set LotObject = RstItem.EMBEDOBJECT(1454, "", MiFichero, "")
Call Doc.SEND(False, WMail)
Por favor, si puedes dime como le adjunto texto
Gracias por tu colaboración.