如何用vb實現以下邏輯?

出錯的時候去執行一段代碼之後,再回到出錯的地方接著往下執行

如何用vb來實現?

---

Sub FFFFFFF()

AAAA:
On Error goto BBBB
....
....
On Error goto 0
Exit Sub

BBBB:
.....
.....
Resume Next

End Sub

---

感觉楼主的想法不太合理，不过还是可以实现的

比如：
VB code:
Private Sub Command1_Click()
Dim I As Integer
Dim J As Integer
Dim M As Integer
On Error GoTo errSub
I = 10
J = 0
LabX:
M = I \ J
Debug.Print M
Exit Sub
errSub:
J = 1
GoTo LabX
End Sub

---

VB code:
'在出错语句前加上
On Error Resume Next
...
'之后加上
'On Error GoTo 0

---

一樓的朋友的解決方法正是我想要的!謝謝

  雖然這樣的邏輯很奇怪.我在用word寫一個自動排版照片的功能,問題是我在用word的VBA的時候,轉換圖片的時候報錯具有不確定性,我循環轉換所有未轉換的圖片,有時候出現轉換失敗報錯,點擊繼續$