vb 读取txt内容，并赋值给数组？

text内容如下：
001.，张三
002，李四
将001列赋值给 a() 名字列赋值给 b（）

---

假如文本亩激歼存在e:\1.txt
内容为：铅橡
001，张三
002，李四
003，王武
004，网吧但
Private Sub Command1_Click()
Dim a(1 To 100)
Dim b(1 To 100)
Dim str As String, i As Integer
i = 1
Open "e:\迅冲1.txt" For Input As #1
Do While Not EOF(1)
Input #1, str
a(i) = Left(str, 3)
b(i) = Right(str, Len(str) - 4)
'MsgBox a(i) & b(i)
i = i + 1
Loop
Close #1
End Sub

---

input #1,a(i),b(i)

---