txt文件中的数据如何转化到vb中的数组中

dim strline as string
dim a()
dim i as integer
open app.path +"\1.txt for input as #1
do until eof(#1)
i=i+1
line input #1,strline
b= split(strline," ")
redim preserve a(i*8)
for cnt=0 to 7
a((i-1)*8+cnt)=b(cnt)
next cnt
loop

Private Sub Command1_Click()
Dim i As Integer, j As Integer, s As String, FileName As String
Dim AA() As String, BB() As Byte, CC() As String, DD() As String
FileName = "c:\1.txt" '请根据实际修改
If Dir(FileName) = "" Then Exit Sub
i = FreeFile
ReDim BB(FileLen(FileName) - 1) '定义临时数组
Open FileName For Binary As #i
Get #i, , BB '读取文本文件数据到临时数组
Close #i
s = StrConv(BB, vbUnicode)
AA = Split(s, vbNewLine)
ReDim CC(UBound(AA), 1 To 8) '定义输出数组
For i = 0 To UBound(AA)
s = AA(i)