Visual Studio Team services. Why in Classic ASP in Windows 10 a call to the comp + dll method generates error number -2147164123 without description?

I hope you are placing my question in the right place. I could not find labels closer.

I'm setting up a new 64-bit system to have everything from my old 32-bit system.

I used vb6 to create an activeX dll test project to make a testProj.dll, package it and install it by running the setup.exe file of the package as administrator.

My test project is called testProj and has a class called testClass that has a sub called simple testSub in the following way:

Public Sub testSub ()
Answer.Write "--------- testSub is called ----------"
End Sub

The testSub simply prints a message to confirm that the sub was called.

Successfully install / register the testProj.dll and in an asp page I successfully call the Server.CreateObject ("testProj.testClass") to create an instance of the testProj to call its testSub ().

In error resume next

Dim testObj
Set testObj = Server.CreateObject ("testProj.testClass")


yes err.number <> 0 then
Response.write "1 ---------- err.number =" & err.number & "--------- err.description =" & err.description
err.clear
it will end if


Call testObj.testSub ()


yes err.number <> 0 then
Response.write "2 ---------- err.number =" & err.number & "--------- err.description =" & err.description
err.clear
it will end if


Set testObj = nothing

But the code generates error. without description:

2 ---------- err.number = -2147164123 --------- err. description = 

Also, if I comment the message & # 39; Call testObj.testSub () & # 39; I do not get any error. Which means that the source of the error is the call to testSub ().

I run everything as an administrator, so I do not expect any permission problems.
Could an expert tell me what the problem might be?

Thank you