ブレゴさんありがとうございます。 動的配列と考えればよかったのですね。 j = 0 Forall vlang In cdoc.GetItemValue("Langage_M_" & i) If vlang = "" Then Exit Forall End If Redim Preserve slang(j) slang(j) = Cstr(vlang) j = j + 1 End Forall 上記にて解決しました。ありがとうございました!