返信ありがとうございます。

前回の区切りはなんとか出来ました。

指摘していただいた通り、
> If Data(i).Length <> Nothing Then
ここで表示されます。

Redim Data(4)を追加して大きさを指定してみたのですが、
うまくいきません。