求助！VB读取TXT连续几行前几列数据

我想用VB在一个TXT文档里读取固定前几段的数据，如何将这些数据放入一个数组中？
例如：我的TXT文档中的数据（位置在D：\1.txt）

1111 2222 3333 4444 5555 6666 
3333 4444 5555 6666 7777 8888 9999 8888 9999 0000
aaaa bbbb cccc dddd eeee ffff
3333 4444 5555 6666 7777 8888 9999 8888 9999 0000
.
.
.
.
3333 4444 5555 6666 7777 8888 9999 8888 9999 0000
我只要每行的前8组的数据,然后放入一个数组中，比如str(n)。最后数组里的数据为:
1111 2222 3333 4444 5555 6666 3333 4444 5555 6666 7777 8888 aaaa bbbb cccc dddd eeee 
ffff ....
请问大神们用什么方法能办到啊 VB 文档 --------------------编程问答--------------------
dim nLine() as string
nline=split(sFile,vbcrlf) 'sFile你将整个文件数据读到该变量，这样，每行会按顺序对应sLine的一个单元

dim  sWord() as string
for i=1 to ubound(sLine)
sWord=split(sLine(i)," ") '将每行数据按空格分隔，i行的每个字，对应wWord的一个单元
.... '按照你的要求使用数据
next

大概就是这样，具体要比整个复杂些，比如，需要先将每行的多个连续空格转换为一个空格等等 --------------------编程问答-------------------- --------------------编程问答-------------------- --------------------编程问答--------------------

Option Explicit

Private Const cols As Long = 6



Private Sub Command1_Click()



Dim i As Long, n As Long

Dim strLine As String, strItem() As String

Dim strData() As String



Open "d:\1.txt" For Input As #1

ReDim strData(LOF(1) - 1)

Do Until EOF(1)

    Line Input #1, strLine

    strItem = Split(strLine, " ")

    If UBound(strItem) >= cols Then

        For i = 0 To cols - 1

            strData(n + i) = strItem(i)

        Next i

        n = n + i

    End If

    

Loop

Close #1



ReDim Preserve strData(n - 1)



End Sub

补充：VB ,  基础类