VB的fso操作文本的问题

FSO是否可以分块读取文本
或者读取文本中随机的N行
比如我的文本行里有
111
222
333
444
555
.
.
.
666
现在想从222这行开始读,一直读到666,然后把666更改为123
222到666中间的每一行替换为其他的数字 --------------------编程问答-------------------- 回车的字符是13

--------------------编程问答-------------------- 我最近也在看这方面的
可以一起学习
不过
我好像还没找到
可以随机读数的功能
呵呵 --------------------编程问答--------------------     Dim FSO As FileSystemObject
    Dim FS As TextStream
    Dim tmpStr As String
    Set FSO = New FileSystemObject
    Set FS = FSO.OpenTextFile("xxxxx", ForReading, False)
    Do While FS.AtEndOfLine
        tmpStr = FS.ReadLine
        Debug.Print tmpStr
    Loop
    FS.Close
    Set FS = Nothing
    Set FSO = Nothing

ReadLine 是读一行
WriteLine 是直接写一行

补充：VB ,  基础类