怎么提高效率?

编了一段小代码,想从文本文件里读取N多数据,文本文件时里有好多数据,有好多行有好多列,我想从里边读出数据,然后把这些数据赋给一个数组.编了以下代码,但是效率不高.800多K的文本文件要处理好半天怎么修改才能提高处理的效率? 
(本段代码的思路:把文本文件全部读入.然后以回车换行符分割成另一个数据组,此数据的每个数据保存一行文本文件里的数据----以安符串形式保存,然后把这个数组的每个数据再用数据间的空格再分割为另一个数据,将分割后的所有数据保存到一个数组里.)
 Open "E:\YT5M Perm&Por\2005Pro\PERM.txt" For Input As #1
        PORO = Input(LOF(1), 1)
 Close #1
   TArr() = Split(PORO, vbCrLf)
   For DM = LBound(TArr) To UBound(TArr)
       TS = TS & TArr(DM) & " "
   Next DM
   TT() = Split(TS, " ")