メモリ不足です。

コンピュータ システムで使用可能なメモリ容量を使い果たしました。動的に割り当てられる配列が大きくなりすぎたか、多数のオブジェクトがインスタンス化されたことが考えられます。

このエラーを解決するには

• Erase ステートメントを使用して、動的配列記憶領域を再割り当てします。
• ReDim ステートメントを使用して、記憶領域を再割り当てします。
• 開いているアプリケーション、ドキュメント、ソース ファイルなどのうち、不要なものを閉じます。

参照

Erase ステートメント | Dim ステートメント | Nothing | ReDim ステートメント | CreateObject 関数