在VB中如何获取文本的行数？

Question

作了个程序，想点击按钮，然后弹出MSGBOX，说明目前文件已添加了多少行文本。这个应该怎么写？是TXT文本，我在文本中会不定期的添加一些内容，请大侠们赐教，谢谢！

Answer 1

open ...... as #1
linenum =0 'dim linenum as integer
do until eof(1)
line input #1,buff 'dim buff as string
linenum = linenum +1
loop
close