請高手指點迷津,這樣的程式到底錯在哪裡?(編號：32632)

我的程式大約如此,後來我做了計數器去檢查
可是每次程式大約跑了兩千多個流程
就自動跳開,查不出原因. 請高手指點一下
Private Sub Command1_Click()
On Error GoTo HANDEL
　　'程式碼....　
　　'statement
　　'程式碼....

Command1_Click
　　Exit Sub
　
HANDEL:
'錯誤重複執行
　 Command1_Click
　 Exit Sub
End Sub