Super Danke!
Mit einem Automatisierungsobjekt funktioniert es sofort!
VBScript
:
Code:
Option Explicit
Dim ComObj
Dim Ergebnis
Err.Clear: Set ComObj= GetObject(, "Project1.Test2")
If Err.Number = 424 Or Err.Number = 429 Then
Set ComObj = CreateObject("Project1.Test2")
End If
Ergebnis = ComObj.Add(4,4)