我是一名小学生，有一个VB问题！！急！！

可以用如下结构
On Error GoTo ErrHandle
'这里写你的程序代码

Exit Sub
ErrHandle: '错误处理
MsgBox "程序出错" & vbCrLf & "错误号: " & Err.Number & vbCrLf & Err.Description, vbCritical Or vbOKOnly, "出错"

例如
Private Sub Command1_Click()
On Error GoTo ErrHandle
Dim xxx As Integer
xxx = 1 / 0
Exit Sub
ErrHandle:
MsgBox "程序出错" & vbCrLf & "错误号: " & Err.Number & vbCrLf & Err.Description, vbCritical Or vbOKOnly, "出错"
End Sub

xxx = 1 / 0 会引发除数为0的错误

On Error Resume Next
'你的有可能出错的代码
MsgBox Error(Err)'出错信息

Private Sub Form_Load()
a = MsgBox("程序中运行发生错误")
End Sub

试试看 基本的

我是一名小学生，问大家一个问题。如果一个程序中运行发生错误，用MsgBox提示使用者，代码是什么？？还要加一个错误信息！！
问题补充：那句代码好像是：
*** error ****GoTo
********************
***********:
MsgBox""
"*"表示不知道