例如:
Public Sub a()
Dim i As Integer
On Error GoTo Err

Exit Sub

Err:
MsgBox Error
End Sub

其中 Exit Sub必须书写，否则会执行Err下面的语句