新建From1（窗体），新建Command1（按钮CommandButton），代码：

Private Sub Command1_Click()
    On Error GoTo hErr
    
    Err.Raise vbObjectError + 3003, , "自定义的错误"
    Err.Raise 1, , "自定义的错误001"   '也可以生产错误 1
    Debug.Print Time
    
    Exit Sub
hErr:
    Debug.Print "错误：" & Err.Number & " " & Err.Description
End Sub

运行结果：

错误：-2147218501 自定义的错误

vbObjectError‌ 是一个常量，其值通常定义为 38000。这是一个特殊的错误编号，用于标识由 COM 对象引发的错误。在 VB6 中，所有 COM 错误都有一个基础编号，加上这个基础编号可以确保错误编号在全局范围内是唯一的。

‌3003‌ 是你添加到 vbObjectError 的值，用来指定具体的错误代码。这意味着实际的错误编号将是 38000 + 3003 = 41003。