Private Sub Command1_Click()
Open "d:\1.txt" For Input As #1
Do Until EOF(1)
Line Input #1,z
t = Split(z,",")
n = n + 1
a(n) = t(0)
b(n) = t(1)
c(n) = t(2)
Loop
End Sub