Dim OCS As CSDN.OCS Dim App As CSDN.Ocs_Application Sub Test() Call Login Dim Archive As CSDN.Archive Set Archive = App.Archive I = Archive.ShowModal("Архив документов") Set Archive = Nothing End Sub Sub Login() If OCS Is Nothing Then Set OCS = CreateObject("CSDN.OCS") If App Is Nothing Then Set App = OCS.Login End Sub