>717
それじゃ質問変えます。
以下の方法を二次元配列、構造体配列でやる方法を教えてください。

dim hoge1() as string, hoge2() as string, hoge3() as string
dim i as long
i = ?
[hoge&i] = split("a,b,c,d,e", ",")

i = ?
dim buf() as string
buf = filter([hoge&i], "huga")

dim temp as string, j as long
i = ?
j = ?
ReDim Preserve [hoge&i](2)
ReDim Preserve [hoge&j](3)
temp = join([hoge&i], "_") & "_" & join([hoge&j], "_")

※変数i,jの値は可変です。数が多いのでSelect Caseも実用出来ません。
※ループでの処理、一次元配列に書き出し後の処理は
　 要素数が多い場合非常に遅いので不可です。