VBA、String型配列でのRedim Preserveがエラーになる

Question

VBAにて、Ubound関数とRedim Preserveを用いてループ内にて自動で配列数を増やすコードを記述しています。

実際にテストを行うと、Redim Preserveを実行したのにもかかわらず、配列の上限数が増えないため
新しい値の格納ができずエラーになる状況です。

Dim strArr() As String
Dim str As String
Dim strLength As Long

Redim strArr(0)

------------ループ処理------------------

strLength = UBound(strArr)
Redim Preserve strArr(0 To strLength + 1)
strArr(strLength + 1) = str

------------ループ処理------------------

変数による配列上限数の指定が原因ではないかと、デバッグ時に実数を用いてみましたが
変わらずエラーとなってしまいました。

原因をご教授していただけますと、幸いです。

Comments

[torisan]

コードでは『ループ処理』と書いてありますが、使用しているのは For Each でしょうか？
その行のコードの記載をお願いします。

[kktok]

ご回答くださりありがとうございます。
For Eachを使用していましたが、For Nextに変更したところ
問題が解消されました。ループ処理に渡した配列は一時的にロックされたことを知りませんでした。

Answer 1

コードが省略されているのでエスパーしての回答です。

------------ループ処理------------------
のループで、以下のようにstrArrを使用してループしていませんか？

For Each str In strArr
    Redim Preserve strArr(...略...)
Next

この場合、ループ処理でstrArrがロックされるのでループを抜けるまでRedimでサイズを変更できません。
For Nextでループしてください。

Comments

[kktok]

ご回答くださりありがとうございます。
ご指摘いただいた通りのエラー原因でした。
ありがとうございました。

Answer 2

提示のコードをコピペして実行してみましたが、問題なく動作しました。
別のところに原因があるのではないかと思います。

確認ですが、1回目のReDimでエラーになるのでしょうか？
またそのエラーの詳細も教えてください。。

Comments

[kktok]

ご回答くださりありがとうございます。

ループ処理内のPreserveを用いたRedim箇所において、
この配列は固定されているか、一時的にロックされています

というエラーが出ます。