>>159
try、throws、catch みたいにして使ってみたけど駄目?
美しくないのはたしかなのだが、仕方ない・・・

Public Function HegHge() As Long
On Error GoTo catch

    If ( bRet = False ) Then Err.Raise 65535

finally:
On Error Resume Next

Exit Function
catch:
'〜エラー処理〜
Resume finally
End Function