为什么我的On Error 语句总是会执行？

Question

Sub Init()
   On Error GoTo Err
   Dim a As Integer
   a = 1
Err:
     MsgBox ("error")
End Sub
每次都会执行错误语句，后来干脆都去掉了
到底哪里出错了？

Answer 1

Sub Init()
   On Error GoTo Err
   Dim a As Integer
   a = 1
exit sub
Err:
     MsgBox ("error")
End Sub

Answer 2

在Err:前面加一句 exit sub 
就不会了

Answer 3

Sub Init()
   On Error GoTo Err
   Dim a As Integer
   a = 1
   Exit sub
Err:
     MsgBox ("error")
End Sub

Answer 4

在Err:前加上exit sub
你自己看你的Code順序運行,當然會走到Err...需要跳出去.

Answer 5

或者
err:
   if len(err)>0 then '执行错误语句
      ......
   end if

Answer 6

Sub Init()
   On Error GoTo Err
   Dim a As Integer
   a = 1 
   exit sub
Err:
     MsgBox ("error")
End Sub