error-handling - 在vb6-Closed中调用Err.Raise时，应用程序定义或对象定义的错误

Question

在我的vb应用程序中，当发生错误并且我想使用err.raise引发错误时，错误消息与我在描述中完全不同，并且在搜索错误后在Err.Raise函数的同一行中显示失败我上面提到的内容没有任何有用的信息，任何人都可以检查我在哪里做错了

Public Sub ErrorHandler()
        '<EhHeader>
        On Error GoTo PROC_ERR
        '</EhHeader>

        Dim sSysMsg As String
100     sProcedureName = "[" & CONST_CLASS_NAME & "." & sProcedureName & "] "

102     If RaiseSystemError Then
104         Err.Raise CONST_CLASS_ERROR, , sErrorMessage & vbCrLf & sProcedureName
        Else
106         If Err <> 0 Then
108             sSysMsg = "[" & Error$(Err) & "] " & vbCrLf
            End If
110         sErrorMessage = sErrorMessage & vbCrLf & sSysMsg & sProcedureName
        End If

112     sProcedureName = ""
114     bMethodFailed = True
116     Err = 0

        '<EhFooter>
        PROC_EXIT:
        Exit Sub
        PROC_ERR:
        If modErr.iHandleError(Err, Erl(), "cWtSvr.ErrorHandler") = vbRetry Then Resume
        Resume Next
        '</EhFooter>
End Sub

错误指向第104行

"Error N0" 4444, Application-defined or object error occured in function name of exe.name of the class.ErrorHandler at line 104"

请注意，错误N0:4444是我自己的自定义错误，而其余错误不是我需要输出的内容，因此不确定会发生什么

非常感谢

Answer 1

我能够找出以前无法进入Err.Raise代码的原因是什么，但是经过一番阅读之后，我能够更改有关如何解决出现的错误的VB6 IDE配置，我在类代码中找出问题所在。
非常感谢您的帮助