How simply to do "try-except" in NAV

Hi
I propose simple method for catch an errors in NAV.

Need such Automation:
VBScript Automation 'Microsoft Script Control 1.0'.ScriptControl

Example:


IF NOT ISCLEAR(VBScript) THEN
CLEAR(VBScript);
CREATE(VBScript);

VBScript.Language := 'VBScript';

Source := STRSUBSTNO('' +
'Function TryExceptMethod' + '%1%1' +
' On Error Resume Next' + '%1%1' +
' TryExceptMethod = FALSE' + '%1%1' +
' a = 10 %2 0' + '%1%1' + // except!!!
' IF Err.Number = 0 THEN' + '%1%1' +
' TryExceptMethod = TRUE' + '%1%1' +
' END IF' + '%1%1' +
'End Function','#','\')
;

WHILE STRPOS(Source,'##') > 0 DO BEGIN
Source[STRPOS(Source,'#')] := 13;
Source[STRPOS(Source,'#')] := 10;
END;

VBScript.AllowUI := FALSE;
VBScript.AddCode(Source);
MESSAGE('Result = %1',VBScript.Eval('TryExceptMethod'));

CLEAR(VBScript);

The kernel of the problem:
Use a VBScript (JScript) Automation and command "On Error Resume Next".

p.s. you can pass a variables from NAV to VBScript like Automation etc... so VBScript.AddObject('objConnection',ADOConnection);
and execute all methods it from script.

Goog luck!!!