【VBA】错误处理、打印输出

Sub test
    On Error GoTo ErrorHandler
    ErrorHandler:
        If Err.Number <> 0 Then
            Msg = "Error # " & Str(Err.Number) & " was generated by " _
            & Err.Source & Chr(13) & "Error Line: " & Erl & Chr(13) & Err.Description
            MsgBox Msg, , "Error", Err.HelpFile, Err.HelpContext
        End If
end sub