...
Dim doc As NotesDocument ' <= Das sich in bearbeitung befindende Dokument
Dim docLink As NotesDocument ' <= Das Dokument, auf dass verwiesen werden soll
Dim rtitem As NotesRichTextItem
...
Set rtitem = doc.GetFirstItem( feldname )
Call rtitem.AppendDocLink (docLink, "User-Info zu dem Dokument")
...