『実行時エラー″7" メモリが不足しています』のエラーをエラー処理で終了させるには？

---

『実行時エラー″7"  メモリが不足しています』のエラーをエラー処理で終了させたいのですが、可能ですか？
自分でエラー処理を書いてみても、エラー処理を実行してくれないのです。どうしたらいいでしょう。ご教授願います。簡単すぎてすみません。

書いてみたコード
Private Sub cmd_A_Click()
            
    On Error GoTo ErrorShori
    
    Load frm_１２３   ←ここで実行時エラー７が発生

       〜処理〜
          ・
          ・
       exit sub

ErrorShori:
     MsgBox "実行できません。"

end sub

編集 削除

---

新しいフォームを開こうとして、
それが原因でメモリ不足になりそうなときは、
On Error Resume Next
なら、できるようです。
他の原因でならわかりませんけど…。

編集 削除

---

ErrorShori:
  MsgBox "実行できません。"
  Resume Next  <--- この１行を追加すれば解決すると思います。


MsgBoxが不要の場合は、
  On Error GoTo ErrorShori <--- ここを、On Error Resume Next に
                                変更すれば解決すると思います。

編集 削除

---

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

←解決時は質問者本人がここをチェックしてください。