VB 如何捕捉错误

举例：
Private sub Command1_Click()
On Error Goto ErrHandle
Dim x as integer
x = 0 / 0 '制造一个错误

Exit Sub '一定要写
ErrHandle:
Msgbox "产生了一个错误，错误代码：" & Err.Code & " 描述：" & Err.Description
End Sub

debug.print s (假设你要捕捉s)
这时，就会在立即窗口中显示s

你也可以添加监视（【视图】【监视窗口】）
当s改变时就会显示s的值（在运行时的监视窗口）

Private Sub mErrInfo()
Dim msg As String
msg = " 错误代号: " & Err.Number & vbCrLf _
& " 信息内容: " & Err.Description
MsgBox msg, vbCritical, "错误信息"
Err.Clear
End Sub

直接调用这个过程就可以了

参考一下：

显示错误：
Private Sub Command1_Click()
On Error Goto Err
'你的代码
Exit Sub
Err:
Msgbox Err.Description,16,"错误号：" & Err.Number
End Sub

不显示错误（当程序中错误的语句不存在）
Private Sub Command1_Click()
On Error Resume next
dim A as Integer
A="abcde" '错误语句