如何快速读取文本文件的最后一行数据呢

怎么快速读取文本文件的最后一行数据呢
我现在要在一个文本文件的未尾追加数据，但是我需要知道现在有文件已经到多少了，才能在后面追加
比如文件最后到了
100-baisoft
那么我要在后面追加
101-baisoft

但是如果要在文件开始读取一直读到最后的话我感觉太慢了，可不可以直接读最后一行啊

------解决方案--------------------

探讨

引用:

如果用open读取的话下面的应该是最快的了VB code
Open xxx For Input As #1
s = StrConv(InputB$(LOF(1), #1), vbUnicode)
Close #1
v=split(s,vbcrlf)
msgbox v(ubound(v))

没明白
strconv??inputB$???……