请问怎样才能出现错误的时候让程序不退出？？

Question

写错误处理如下：
...
strBureau = Left(inputBuf, 2)
on error goto 10
d_number(CInt(strBureau)) = False
...
exit sub
10:
if err.number =  类型不匹配的错误号 then
msgbox "输入不规范！"
elseif err.number=  ... then
....
else
msgbox "遇到未知错误！"
end if
end sub

Answer 1

on error resume next
================================================================CSDN 论坛助手 Ver 1.0 B0402提供下载。 改进了很多，功能完备！★  浏览帖子速度极快！[建议系统使用ie5.5以上]。 ★  多种帖子实现界面。 
★  保存帖子到本地[html格式]★  监视您关注帖子的回复更新。
★  可以直接发贴、回复帖子★  采用XML接口，可以一次性显示4页帖子,同时支持自定义每次显示帖子数量。可以浏览历史记录！ 
★  支持在线检测程序升级情况，可及时获得程序更新的信息。★★ 签名  ●  
     可以在您的每个帖子的后面自动加上一个自己设计的签名哟。Http://www.ChinaOK.net/csdn/csdn.zip
Http://www.ChinaOK.net/csdn/csdn.rar
Http://www.ChinaOK.net/csdn/csdn.exe    [自解压]

Answer 2

cint函数有一个缺点：当参数是空串""时，会出错，你可以这样
d_number(val(strBureau)) = False

Answer 3

on Error goto ErrDeal
...
your program
...
Exit Sub ErrDeal:
 ...
 what you want to do
 ...
End Sub