這個範例會
Err
使用 物件的
Clear
方法，將 物件的數值屬性
Err
重設為零，並將其字串屬性重設為零長度字串。 如果沒有呼叫
Clear
，第二次呼叫
MsgBox
會顯示相同的錯誤訊息。
Sub ClearErr()
' Produce overflow error
On Error Resume Next
Dim zero As Integer = 0
Dim result As Integer = 8 / zero
MsgBox(Err.Description)
Err.Clear()
MsgBox(Err.Description)
End Sub
使用
Clear
在處理錯誤之後明確清除
Err
物件，例如當您搭配
On Error Resume Next
使用延後的錯誤處理時。
Clear
每當下列任一語句執行時，都會自動呼叫 方法：
Resume
任何類型的語句
Exit Sub
、
Exit Function
或
Exit Property
任何
On Error
語句
任何
Try...Catch...Finally
語句
當
On Error Resume Next
處理存取其他物件期間所產生的錯誤時，建構可能比較好
On Error GoTo
。
Err
檢查每次與物件互動之後，都會移除程式碼所存取的物件模棱兩可：您可以確定哪一個物件將錯誤碼
Err.Number
放在 中，以及哪些物件原本產生錯誤 () 中指定的
Err.Source
物件。
