捕获错误的问题！

[Lukeskywalker]

On Error GoTo error


error:
MsgBox Err.Description



如果没有错误的话会返回一个空的提示信息出来，有没有什么办法可以解决

[3q2008Com]

On Error GoTo error


exit sub /function

error:
MsgBox Err.Description

[roger_xiong]

On Error Goto Err_handle

.....

'过程出口
Exit_handle:
Exit Sub

'错误处理入口
Err_handle:
Msgbox Err.Description
'错误处理
......

'跳到出口
Resume Exit_handle
End Sub

[缪军]

on error goto errtrap
……
exit sub(Function)

ErrTrap:
MSGBOX Err.Description
on Error goto 0