Dim rti As NotesRichTextItem
Dim rtnav As NotesRichTextNavigator
Dim rtlink As NotesRichTextDocLink
Dim flag As Boolean

Set rti = docMU.GetFirstItem("ParentOrg")      
flag = rtnav.FindFirstElement(RTELEM_TYPE_DOCLINK) 

Do While flag
Set rtlink = rtnav.GetElement    
If rtlink.DocUnID <>"" Then         '    есть линк
Set docOLD = MUdb.GetDocumentByUNID(rtlink.DocUnID) 'док по линку

If Not ( docOLD Is Nothing ) Then    
id1$ = docOLD.UniversalID
End If

End If

flag = rtnav.FindNextElement()    ' след ссылка 
Loop