Dim TCS As CSDN.TCS Dim App As CSDN.Tcs_Application Sub Test() Call Login App.Parameters.ActionList.ActionByName("ShowAction").Execute 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