Copiar campos RichText para de um documento para outro

http://moorthidaniel.com/lotus-script/copy-richtextitem-from-one-document-to-another-document/
 
%REM
Function updateRTitem
Description: Copy RichTextItem from One document to Another document
newdoc - destination document
refdoc - Source document
rtName - RichText Field name to copy
%END REM
Function updateRTitem(newdoc As NotesDocument,refdoc As NotesDocument,rtName As String)
On Error GoTo handleError
Dim srcRTitem As NotesRichTextItem
Set srcRTitem = refdoc.Getfirstitem(rtName)
Dim nav As NotesRichTextNavigator