vb如何读取文本文件中指定内容

vb读取文本文件中指定内容方法：

privatesubcommand1_click()

open"c:S.txt"forinputas#1

n=0

dowhilenoteof(1)

lineinput#1，a

n=n+1

ifn=3then

text1.text=a

exitdo

endif

loop

close#1

endsub

这样就可以了。用n来控制行数。当到达了第三行，就输出到文本框，然后退出循环。