Как связать два документа в архиве?

Sub Connect_DOC_TO_DOC(TCSApp, DOC_VER_ID, IZM_VER_ID, VID_SVYAZY) ' Связывание двух документов между собой
' IZM_VER_ID - идентификатор версии Гл. документа
' DOC_VER_ID - идентификатор версии который входит
' VID_SVYAZY - вид связи

Dim Single_Doc ' документ архива
Dim LinkDoc_Single_Doc ' связанные документы (входимость)
Dim DOC_LINK_TYPE ' справочник связей документов

    Set Single_Doc = TCSApp.SingleDoc(1, IZM_VER_ID)
    Single_Doc.UserModuleName = Single_Doc.UniqueUserModuleName
        Set LinkDoc_Single_Doc = Single_Doc.Properties("LINKS").AsIDispatch
        LinkDoc_Single_Doc.UserModuleName = LinkDoc_Single_Doc.UniqueUserModuleName
        LinkDoc_Single_Doc.Refresh
        If Not LinkDoc_Single_Doc.Locate("LINKED_VER_ID", DOC_VER_ID, 0) Then
        LinkDoc_Single_Doc.CancelChanges
        LinkDoc_Single_Doc.CreateNew
            Set DOC_LINK_TYPE = TCSApp.DocLinkTypes
            DOC_LINK_TYPE.UserModuleName = DOC_LINK_TYPE.UniqueUserModuleName
            If DOC_LINK_TYPE.Locate("NAME", VID_SVYAZY, 0) Then
                LinkDoc_Single_Doc.Properties("LINK_TYPE").AsInteger = DOC_LINK_TYPE.Properties("ID").AsInteger
                LinkDoc_Single_Doc.Properties("LINKED_VER_ID").AsInteger = DOC_VER_ID
                LinkDoc_Single_Doc.SaveChanges
                LinkDoc_Single_Doc.CancelChanges
            End If
            Call TCSApp.DeleteModuleByUserModuleName(DOC_LINK_TYPE.UserModuleName)
            Set DOC_LINK_TYPE = Nothing
        LinkDoc_Single_Doc.CancelChanges
        End If
        Call TCSApp.DeleteModuleByUserModuleName(LinkDoc_Single_Doc.UserModuleName)
        Set LinkDoc_Single_Doc = Nothing
    Call TCSApp.DeleteModuleByUserModuleName(Single_Doc.UserModuleName)
    Set Single_Doc = Nothing
   
End Sub