高分求助！-个关于错误处理的问题（高分哦）

Question

On Error goto errhandle
    Err.Clear
    dim a as integer
    a =  1 / 0
    exit sub
errhandle:
    err.clear

Answer 1

有点不太懂搂住的意思？
如果只是想捕捉这个错误的话，那么就想楼上的高手所说的就可以搞定拉。
但是如果你想知道是出错的代码的话，应该说没有什么好的办法？
On Error goto errhandle
    Err.Clear
    dim a as integer
    dim sCode as string
    sCode="a = 1/0"
    a =  1 / 0
    exit sub
errhandle:
    err.clear
    debug.print "这行代码出错拉: " & sCode

Answer 2

select case err.number
case 11
err.raise 11,,"i=10/0"
case else
.....
end select