ダメソース

こんなの見つけました。

Public Sub MySelf

   Try
      DoYourJob
   Catch ex As Exception
      Call MySelf
   End Try

End Sub

エラーによるリトライで再帰呼び出ししたらアカンでしょ。