>>472 のサンプルプルグラム

+++Module1+++ｺｺｶﾗ
Private Const IsModule As Boolean = True

Sub Main()

FuncA

End Sub

Function FuncA()

Dim clsC As Class1

On Error GoTo ErrorHandler

Set clsC = New Class1

If IsModule Then
FuncB
Else
clsC.FuncC
End If

ErrorHandler:
MsgBox Err.Number & " " & Err.Source

End Function

Function FuncB()

Dim lngFoo As Long

On Error GoTo ErrorHandler

lngFoo = ""

ErrorHandler:
Err.Raise vbObjectError + 512, "FuncB"

End Function
---Module1---ｺｺﾏﾃﾞ

+++Class1+++ｺｺｶﾗ
Function FuncC()

Dim lngFoo As Long

On Error GoTo ErrorHandler

lngFoo = ""

ErrorHandler:
Err.Raise vbObjectError + 512, "FuncB"

End Function
---Class1---ｺｺﾏﾃﾞ