Элемент ScriptControl заменить на либо ...object или declare - VB

Формулировка задачи:

Элемент ScriptControl нужно заменить на либо ...object или declare.
Парсинг на VB6 слишком медленный. Выгодней использовать регулярное выражение.
Всем добра и мир
с уважением Андрей

Решение задачи: «Элемент ScriptControl заменить на либо ...object или declare»

textual
                            Листинг программы 
                        

                            /*
[
odl,
uuid(51973C11-CB0C-11d0-B5C9-00A0244A0E7A),
]
interface IActiveScriptSiteDebug : stdole.IUnknown
{
HRESULT GetDocumentContextFromPosition( 
[in] LONG *dwSourceContext,
[in] LONG *uCharacterOffset,
[in] LONG *uNumChars,
[out,retval] LONG *ppsc
);

HRESULT GetApplication( 
[out,retval] LONG *ppda
);

//IDebugApplication        
HRESULT GetRootApplicationNode( 
[out,retval] LONG *ppdanRoot
);

HRESULT OnScriptErrorDebug( 
[in] LONG *pErrorDebug,
[in,out] BOOL *pfEnterDebugger,
[out,retval] BOOL *pfCallOnScriptErrorWhenContinuing

);

};
*/
/*
[
odl,
uuid(51973C32-CB0C-11d0-B5C9-00A0244A0E7A)
]
interface IDebugApplication : IRemoteDebugApplication
{

HRESULT SetName( 
[in] LPSTR  pstrName) = 0;

HRESULT StepOutComplete( void) = 0;

HRESULT DebugOutput( 
[in] LPSTR  pstr) = 0;

HRESULT StartDebugSession( void) = 0;

HRESULT HandleBreakPoint( 
[in] BREAKREASON br,
[in,out] BREAKRESUMEACTION  *pbra) = 0;

HRESULT Close( void) = 0;

HRESULT GetBreakFlags( 
[in,out] APPBREAKFLAGS  *pabf,
[in,out] IRemoteDebugApplicationThread  *pprdatSteppingThread) = 0;

HRESULT GetCurrentThread( 
[in,out] IDebugApplicationThread  *pat) = 0;

HRESULT CreateAsyncDebugOperation( 
[in] IDebugSyncOperation  *psdo,
[in,out] IDebugAsyncOperation  *ppado) = 0;

HRESULT AddStackFrameSniffer( 
[in] IDebugStackFrameSniffer  *pdsfs,
[in,out] LONG  *pdwCookie) = 0;

HRESULT RemoveStackFrameSniffer( 
[in] LONG dwCookie) = 0;

HRESULT QueryCurrentThreadIsDebuggerThread( void) = 0;

HRESULT SynchronousCallInDebuggerThread( 
[in] IDebugThreadCall  *pptc,
[in] LONG dwParam1,
[in] LONG dwParam2,
[in] LONG dwParam3) = 0;

HRESULT CreateApplicationNode( 
[in,out] IDebugApplicationNode  *ppdanNew) = 0;

HRESULT FireDebuggerEvent( 
[in] REFGUID riid,
[in] IUnknown  *punk) = 0;

HRESULT HandleRuntimeError( 
[in] IActiveScriptErrorDebug  *pErrorDebug,
[in] IActiveScriptSite  *pScriptSite,
[in,out] BREAKRESUMEACTION  *pbra,
[in,out] ERRORRESUMEACTION  *perra,
[in,out] BOOL  *pfCallOnScriptError) = 0;

BOOL FCanJitDebug( void) = 0;

BOOL FIsAutoJitDebugEnabled( void) = 0;

HRESULT AddGlobalExpressionContextProvider( 
[in] IProvideExpressionContexts  *pdsfs,
[in,out] LONG  *pdwCookie) = 0;

HRESULT RemoveGlobalExpressionContextProvider( 
[in] LONG dwCookie) = 0;

};
*/    

                        