改变文字属性的小程序：

控件：Command按钮共5个。
核心代码：

Option Explicit
Private Sub Command1_Click()
Form1.FontBold = True          '设置Form1窗体的字体为粗体
Print "这是粗体"               '在窗体上输入一句话：这是粗体            
End Sub
Private Sub Command2_Click()
Form1.FontBold = False         '设置Form1窗体的字体为带下划线的
Form1.FontItalic = False
Form1.FontUnderline = True
Print "这是带下划线的"         '在窗体上输入一句话：这是带下划线的
End Sub
Private Sub Command3_Click()
Form1.FontBold = False         '设置Form1窗体的字体为斜体
Form1.FontItalic = True
Print "这是斜体"               '在窗体上输入一句话：这是斜体
End Sub
Private Sub Command4_Click()
Form1.FontBold = False         '设置Form1窗体为带删除线的
Form1.FontItalic = False
Form1.FontUnderline = False
Form1.FontStrikethru = True
Print "这是带删线的"           '同上，依次类推。
End Sub
Private Sub Command5_Click()
On Error GoTo err1             '错误捕捉程序，在发生错误的情况下跳转到err1
Dim a As String                '设置a为字符串型变量
a = InputBox("输入要改变的字号", "提示", "")     '用Inputbox带出用户要改变的字号并将其赋值给a
Form1.FontSize = a             '将Form1窗体的字体大小设置为13
If Error.Number = 13 Then      'If判断语句，如果满足错误代码=13
Exit Sub                       '那么退出过程
err1:                          '跳转到错误处理部分
MsgBox "请在文本框中输入字号", vbOKOnly + vbCritical, "错误提示"    '弹出的警示窗
End If
Err.Clear                     
End Sub

四个问题：
Q1：Err.Clear的意思，是清除错误处理部分，还是清除错误信息，或者其他的？
A1：
Q2：这个错误捕获程序，为何要在

If Error.Number = 13 Then

这句代码后加一个Exit Sub退出过程的代码？不退出过程，直接到错误处理部分不行吗？
A2:
Q3：我没加Exit Sub这句代码时，会出现如图的错误： ，发生这个错误的原因是什么？
A3：
Q4：这个程序，设计的是在错误代码（error=13）=13的情况下，才跳转到错误处理部分，弹出警示窗。为何我在Inputbox的文本框中输入了数字，（删除错误捕捉的代码，可以测试出在此处并没有弹出错误代码=13的弹窗）仍旧弹出警示窗，为何？
A4：
因为问题较多，所以为了更加清楚的表达，故上传源文件，期待大神解决。
源文件：

非常感谢楼上两位的回复，经过3L版主的回复，找到问题的原因了，也积累了不少的知识。再次感谢！

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

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