>>539
お馬鹿な発想かもしれないけどGlobal変数使ったら？

ReDim Preserve xx(x)
Empty=True
if x<>0 then Empty=False