VB 将CSV指定数据提取到TXT文件里

我是个VB新手，对文件操作不太明白，假设类似下面的一个CSV文件内容

全名  短名  长度
AAA  BBB   CCC
DDD  VVV   ZZZ
FFF  EEE   VVV

现在将把第一列的内容（除了最上面那个表头)导到TXT文件里，请问这个怎么操作的，谢谢 --------------------编程问答-------------------- dim s as  string,i as long,t as  string
open "d:\aa.csv" for input as #1
do while not eof(1)
   line input #1,s
   i=i+1
   if i=2 then t=s
loop
close #1
open "d:\aa.txt" for output as #1
print #1,t
close #1

补充：VB ,  基础类