Dim TcsObj As CSDN.TCS
Dim App As CSDN.Tcs_Application
Dim NMks As CSDN.Nomenclatures
Dim NmkTechVer As CSDN.NmkVersions
Dim TechVer As CSDN.NmkVersion
Set TcsObj = CreateObject("CSDN.TCS")
Set App = TcsObj.Login
    
If App.NmkClasses.RunModuleForSelect("Выберите класс", False) Then
    Set NMks = App.Nomenclatures(App.NmkClasses.Properties("ID").AsInteger)
    
    If NMks.RunModuleForSelect("Выберите номенклатуру", False) Then
        Set NmkTechVer = App.NmkTechnologyVersions(NMks.Properties("ID").AsInteger)
        If NmkTechVer.RunModuleForSelect("Выберите версию техпроцесса", False) Then
        
            Set TechVer = App.NmkVersion(NmkTechVer.Properties("ID").AsInteger)
            ...
    
            Set TechVer = Nothing
        End If
        
        Set NmkTechVer = Nothing
    End If
    
    Set NMks = Nothing
End If
Set App = Nothing
Set TcsObj = Nothing