如何用错误陷井?

select case Err
=0
代码
ＯＮ　ＥＲＲＯＲ　ＧＯＴＯ 10
=1
代码
ＯＮ　ＥＲＲＯＲ　ＧＯＴＯ 11
=2
代码
ＯＮ　ＥＲＲＯＲ　ＧＯＴＯ 12
=3
代码
ＯＮ　ＥＲＲＯＲ　ＧＯＴＯ 13
end select

10:
err=err+1
msgbox err
11:
err=err+1
msgbox err
12:
err=err+1
msgbox err
13:
err=err+1
msgbox err
未能完全理解您的意思，不知道是不是这个意思？