Private Sub TestSub()
On Error GoTo errHandler
Dim o As TestServer.Class1
Set o = New TestServer.Class1
App.LogEvent "Error in TestSub: " & Err.Number & "; Source: " & Err.Source & "; Description: " & Err.Description
If you are debugging in the Visual Basic integrated development environment (IDE), and if the COM object is running in process, you can obtain a more specific error description that includes the object and method names. To determine the root cause of the problem, debug the method of the object that returns E_FAIL.