>>43
これ通るの？
　　　For j = 0 to 1
　　　　　sqrDim( i ) = Split( sqrDim( i ), vbTab )
　　　Next j
で sqrDim( i ) を２回splitしてる。
１回めは文字列のsplitだからいいけど、２回めは配列のsplitになってエラーになりそうだけど。
For j のループは不要。

あとついでに
For i = 0 to UBound( tmpDim ) - 1
だとTextDataの最終行のデータが配列に格納されないけど問題ないか？