VBTextStream如何读取文本文件某行的内容

VB+TextStream+如何读取文本文件某行的内容
VB TextStream 如何读取文本文件某行的内容
更多相关内容请访问"CAD家园论坛",获取完整满意的答案!只读取40，41，41三行的内容，如何用TextStream做到
更进一步，就是如何控制它读那一行，某个范围的文字?Sub ttt() Dim fso As New FileSystemObject
Dim ts As TextStream
Dim aData
Set ts = fso.OpenTextFile("c:\1.txt")
aData = Split(ts.ReadAll, bCrLf)
MsgBox aData(39)
MsgBox aData(40)
MsgBox aData(41)
End Sub
Streamreader 读取文本文件最后一行
Dim arr As String() = File.ReadAllLine("")
Dim s As String = arr(arr.Length - 1)
有一个文本文件，我需要从文本文件的最后一行开始循环读取，直到读取到第一行结束。

同时还需要添加控制，就是添加一个循环到指定数字时就退出循环。

请各位帮帮忙！谢谢
VB code
Private Sub Command1_Click()
Dim i As Long, s() As String
Open "d:\temp.txt" For Input As #1
s = Split(StrConv(InputB(LOF(1), 1), vbUnicode), vbCrLf)
Close #1
For i = UBound(s) To 0 Step -1 DoEvents
Debug.Print s(i)
If i = 5 Then Exit For
Next
End Sub。