Dim TCS As CSDN.TCS
Dim App As CSDN.Tcs_Application
Sub Test()
    Call Login
    
    I = App.Inventory.CalculateDocuments.ShowModal("Расчетные документы")
        
End Sub
Sub Login()
    
    If TCS Is Nothing Then Set TCS = CreateObject("CSDN.TCS")
    
    If App Is Nothing Then Set App = TCS.Login 
    
End Sub