如果想要根据错误编号获取错误描述，可以使用Error()函数，该函数返回的结果相当于Err对象的Description 属性，具体语法：
Error([错误编号])
如果省略错误编号，就会返回与最近一次运行时错误对应的错误描述，所以可以通过该函数得到程序运行错误时的描述。
编写VBA代码，获取输入数据，输出结果，输入数据不是整数或不能够转换为整数型时，则跳转至打开“您出错了！”消息对话框的代码处，具体如下：
执行过程
保存编写的VBA代码，然后按【F5】键运行“错误消息”过程，如图：
源码：
'显示错误信息
Sub 错误信息()
'出错时跳转至“行标签”标签
On Error GoTo 行标签
Dim Num As Integer
Num = InputBox("请输入数据：")
MsgBox "输入数据为：" & Num
Exit Sub
'设置行标签
行标签:
'出错时输出错误描述信息
MsgBox "错误描述：" & Error()
End Sub
