如何读取文件的指定行
假如有一个文本文件，内容
1/1/1/1
2/2/2/2
3/3/3/3
4/4/4/4
5/5/5/5

我只有读取第4行到第5行的内容

Open "c:\1.txt " For Input As #1
For i=1 To 5
Line Input #1, NextLine
Lines = Lines & NextLine & Chr(13) & Chr(10)

Next i
Close #1
这读出了1到5行的内容

[解决办法]
Private Sub Command1_Click()
Dim LF As Long, strt() As String, Filetmp() As Byte
Open "c:\1.txt " For Binary As #1
LF = LOF(1)
ReDim Filetmp(LF - 1)
Get #1, , Filetmp
strt = Split(StrConv(Filetmp, vbUnicode), vbCrLf)
Debug.Print strt(3)
Debug.Print strt(4)
Close #1
End Sub