Private Sub Command1_Click()
    Err.Raise 621
End Sub如果你没有装MSDN:
 
应用程序定义的或对象定义的错误
   当以 Raise 方法生成的错误或者是 Error 语句,不符合 Visual Basic for Applications 所定义的错误时,显示这条消息。若 Error 函数的参数不符合 Visual Basic for Applications 所定义的错误,也会返回此消息。这可能是您自定义的错误,或者是由对象所定义的,包括主应用程序,如 Microsoft Excel、Visual Basic 等等。例如,Visual Basic 窗体所生成的一些窗体相关错误,它们不能在程序中简单的指定一个号码,做为 Raise 方法或 Error 语句的参数。这个错误具有以下的起因与解决方法: 应用程序执行了一个 Err.Raise n 或 Error n 语句,但代码 n 并非由 Visual Basic for Applications 所定义的。 
您必须使用 Err.Raise 并指定额外的参数,这样,用户才能了解错误的本质。例如:可添加一个描述字符串、来源或帮助信息。为了再生成一个捕获的错误,若在重新生成一个错误前不执行 Err.Clear,则此步骤是有效的。若先执行 Err.Clear,就必须在 Raise 方法中填入其它的参数。请检查错误发生的情况,并确定正在重新生成相同的错误。有可能从其它应用程序中访问对象时,错误返回到您的程序中,而此错误不是 Visual Basic 所能侦查到的。 
请检查访问过的对象的文档。Err 对象的 Source 属性应该含有产生错误的应用程序或对象的程序标识符。若要了解对象返回的错误的内容,最好在访问对象的代码中使用 On Error Resume Next 结构,而不要使用 On Error GoTo line 语法。注意 在过去,程序员常会使用一个循环,来打印出所有可捕获的错误(trappable error)的消息字符串。典型的代码如下:For index = 1 to 500
Debug.Print Error$(index)
Next index这段代码仍可列出 Visual Basic for Applications 的全部错误消息,但宿主定义的错误会显示“应用程序或对象定义错误”,例如 Visual Basic 中,那些与窗体、控件等有关的错误。它们中有许多是可捕获的运行时错误。可使用帮助中的“搜索”对话框来找出宿主应用程序所指定的可捕获错误的列表。单击“搜索”对话框,在第一个文本框中键入“可捕获的”,然后单击“显示主题”。再在较低的列表框内选取“可捕获的错误”,最后单击“显示”。详细信息,请先选取有疑问的项目,然后按下 F1 键 。