How to raise error from VB to VC

Hi fellow forum members,

GoodMorning.

I want to send a specific error from my VB component(server) to a VC component(client) using err.raise method. But, I am not able see the value in hr(HRESULT) of VC. Please advise.

Sample code in VB:
Private sub IF1_Method1()
On Error Resume Next
Call Mathod2
If Err.Number < 0 Then 'if it is error
'send my error
Err.Raise 1000+vbObjectError
Exit sub
End If
End sub

Sample code in VC
hr = pIF1->Method1()

Here “hr” is always found to be “zero” though I make sure to send an error from VB.

Regards,
Raman.