Скрипты TCS + .NET

using System;
using System.Collections.Generic;
using System.Text;
using System.Runtime.InteropServices;

namespace Ex1
{
    [ComVisible(true)]
    [ClassInterface(ClassInterfaceType.AutoDispatch)]
    public class Ex1Class
    {
        public void ShowModule(object TCSApp, object TCSActiveModule)
        {
            try
            {
                CSDN.ITcs_Application app = (CSDN.ITcs_Application)TCSApp;
                CSDN.IGModule module = (CSDN.IGModule)TCSActiveModule;
                app.NmkClasses.get_ShowModal("Select class");
                module.get_ShowModal("Hello from active module!");
                for (int i = 0; i < module.ChildModules.ModulesCount; ++i)
                {
                    CSDN.IPModule m = module.ChildModules.get_ModuleItems(i).AsIDispatch as CSDN.IPModule;
                    if (m != null) m.get_ShowModal("This is child module:" + module.ChildModules.get_ModuleItems(i).Caption); 
                }     
            }
            catch (Exception e)
            {
                System.Windows.Forms.MessageBox.Show( e.ToString() );
            }
        }
    }
}

Sub FormMacro_temp123(TCSActiveModule)
 tag = TCSActiveModule.Tag 'Sorry, we should initialize our internal interfaces here
 Set oo = CreateObject( "Ex1.Ex1Class" )
 Call oo.ShowModule( TCSApp, TCSActiveModule ) 
End Sub

tag = TCSActiveModule.Tag 'Sorry, we should initialize our internal interfaces here
Set ComObj = CreateObject( "Namespace.ClassName" )

Call ComObj.Show(TCSApp, TCSActiveModule)

If Not ComObj Is Nothing Then
Set ComObj = Nothing
End if