按行获取文本文件的内容
不知是不是VB里最简单的方法？
Sub getlines(byval filename as string,byref lines() as string)
If Len(Dir(filename)) = 0 Then Exit Sub
Open filename For Input As #1 ' 打开文件。
lines = Split(StrConv(InputB(LOF(1), 1), vbUnicode), vbCrLf)
Close #1
End Sub