如何用VB顺序读取文本文件？？

Question

我做一个程序，需要顺序读取一个文本文件，例如
1 2 3
4 5 6
。。。。
要把第一列的数读到dep（i）中，第二列的数读到CAl（i）中，第三列的数读
到ng02（i）中，每一行的顺序要对应，如何实现？？最好给出代码，谢谢
本人的代码如下： Open FileName For Input As #1
While Not EOF(1)
Input #1, Dep(i), Cal(i), NG02(i)
i = i + 1
Wend
Close #1
程序运行基本没有问题，问题就是Dep(i), Cal(i), NG02(i)中的数值与文本中不一致，经本人研究，好像是跟文本中数值之间的空格有关系，但是不知道怎么处理这些空格，文本文件是excel导出的，有几百个值，每次都不一样，请指教！！！

Answer 1

dim strLine as string
dim s() as string
dim ubd as long

Open FileName For Input As #1
While Not EOF(1)
'读取一行
line input #1,strline
s=split(strline,vbtab) '因为是Excel导出的，一定导出为Tab分隔符，或者直接从Excel粘贴到记事本就是Tab分隔

'动态扩大数组空间
ubd=ubd+1
redim preserve Dep(1 to ubd)
redim preserve Cal(1 to ubd)
redim preserve NG02(1 to ubd)
'输入值
Dep(ubd)=val(s(0))
Cal(ubd)=val(s(1))
NG02(ubd)=val(s(2))
Wend
Close #1

Answer 2

mid("1 2 3",1,1) & mid ("4 5 6",1,1) 。。。