I022 ON ERROR ステートメントが不正です

On_Error...GoTo ステートメントで、GoTo キーワードの次にくる要素が、必要なラベルでも 0 に等しい定数でもありません。

GoTo キーワードの次にくる要素をラベルまたは 0 に等しい整数定数に変更してください。