VB读取CSV

现在有个cvs文件： 1,1,1 2,2,2 3,3,3 4,4,4 5,5,5 1.我只要读出1，3，5 行的数据，怎么读，FSO中的skipline好象不行。 2.如果不行，用readall来读，怎么把读出的内容重新按行分开？ 请写关键源代码。 谢了！ 在线等待

dim s as string
s=ts.readall
dim a
a=split(s,vbcrlf)
dim ss as string
ss=a(0) '第1行
ss=a(2) '第3行
ss=a(4) '第5行

大致就这样

FSO模型中的TextStream对象： Dim FSO As New FileSystemObject Dim ts As TextStream