>>44-46
早々に回答ください、どうもありがとうございます。

いろいろ回答を頂いておきながら、大変申し訳ないのですが、
38行目のデータをよく見たところ、TAB区切りではなく、ここだけスペースが入っていました
（他は、各行に２個の要素があったのですが、ここだけ要素が１個でした）
そして、これを修正したら、エラーなく実行できました。
お手数をおかけし、申し訳ありませんでした。

おっしゃる通り、ｊ　のループは不要ですね。（いろいろ修正していて、ｊ　を使わなくなったようです）

> だとTextDataの最終行のデータが配列に格納されないけど問題ないか？
いえ、ちゃんと最終行まで格納出来てました
（UBound()は要素数を表しているように思います）

> 　ReDim sqrDim(LBound(tmpDim), UBound(tmpDim))
ReDim　は使ったことがないので、また調べてみます

以上、ありがとうございました。