关于VB错误捕捉的问题

四个问题：
Q1：Err.Clear的意思，是清除错误处理部分，还是清除错误信息，或者其他的？
A1：清除当前错误信息，让错误捕捉部分可以继续工作。调用API等及有些非代码部分会产生错误，也会导致错误，这些情况下是需要用命令去检测是否产生的错误。
    不清除错误信息，有可能造成检测错误的结果是 不正确的。

Q2：这个错误捕获程序，为何要在这句代码后加一个Exit Sub退出过程的代码？不退出过程，直接到错误处理部分不行吗？
A2：一般来说，错误捕获程序后面的代码应该是有很多，很长的一段判断，有些甚至有 返回到错误出现的那句重新执行的命令。在这种情况下，如果错误处理程序前面不加 exit sub 的话，有可能导致程序执行到错误捕获程序里去，当有一个非正常状态下执行的命令时，就会导致运行结果更加不正确。
    一般来说，凡有错误捕获的代码，在错误捕获的代码前都要加上 exit sub ，防止代码运行不可控。

Q3：我没加Exit Sub这句代码时，会出现如图的错误：
A3：我测试时没发现你这种情况。估计是你把这个标签也给删掉了。
    err1:                          '跳转到错误处理部分  
    这行是标签，标签以 标识符开始，以冒号结束，单独占用一行。 如果前面有 goto 命令，那么就必须要有对应的 标签。不管这个GOTO是 使用陷井的，还是无条件转移。

Q4：这个程序，设计的是在错误代码（error=13）=13的情况下，才跳转到错误处理部分，弹出警示窗。为何我在Inputbox的文本框中输入了数字，（删除错误捕捉的代码，可以测试出在此处并没有弹出错误代码=13的弹窗）仍旧弹出警示窗，为何？
A4：我测试的结果是你的代码顺序错了：代码的顺序应该是：
  
    看到了没，出现这个提示的原因是你的 标签的位置弄错了，可能是拖动代码造成的。
因为 有一个标签，所以前面那个 if 被强制 结束了，然后执行 标签后的命令。产生这个提示。

我的逻辑是:判断如果发生错误，错误代码13(if error.number=13)——退出过程——跳转到错误处理部分——给予相应的措施——清除错误信息，保证错误处理部分继续正常工作。
你的逻辑：退出过程——跳转到错误处理部分——判断如果发生错误，错误代码13——给予相应的措施——清除错误信息，保证错误处理部分继续正常工作。
感觉你的逻辑接受不了啊。。。不同于正常人的逻辑啊。。
另外，在更改为你的顺序后，又发生了未知的错误。
这次是实时错误424。。单击改变字体大小，—取消，或者输入框为空，就会触发这个错误，原来错误代码是13，现在成424了。。所以这个错误处理部分也就没用了，而改回我原来的代码顺序，这个错误代码就是13，并且能正常给予提示。为何？

感谢您的解答，问题解决，谢谢。