Object variable not set

Hola dtorrado:
Pues mira solicitando tu ayuda, lo que pasa es que tengo un código de Lotus Script y lo que hace es en el evento QueryClose verifica si existe algún archivo para poner un estatus de tramitado pero si lo ejecuto funciona perfectamente el problema es cuando le doy nuevo documento pero ya no quiero hacer nada y me quiero salir me envía el mensaje de que "Object variable not set", y me fije que es cuando pasa por rtnav - entonces no se si me pudieras ayudar para que no me envíe ese mensaje, te envío el código que tengo
Gracias
Sub Queryclose(Source As Notesuidocument, Continue As Variant)
Dim session As New NotesSession
Dim db As NotesDataBase
Dim ws As New NotesUIWorkspace
Dim body As NotesRichTextItem
Dim rtnav As NotesRichTextNavigator
Dim rtrange As NotesRichTextRange
Set body = note.GetFirstItem("Doc_Comprobación")
Set rtnav = body.CreateNavigator
Set rtrange = body.CreateRange
Set docMinuta = Source
Set note = docMinuta.document
Call docMinuta.Save
flag= rtnav.FindFirstElement(RTELEM_TYPE_FILEATTACHMENT)
If flag Then
Set db = session.CurrentDatabase
Set uidoc = ws.CurrentDocument
Set docnotes = uidoc.Document
docnotes.Estatus= "Tramitado"
Call docMinuta.Save
Call uidoc.Save
Else
End If
End Sub