一个简单的VB 2005问题

VB2005中最好的方法是：
Using s As New StreamReader("c:\a.txt")
s.ReadLine()
s.ReadLine()
Textbox1.Text = s.ReadLine()
s.Close()
End Using

Private Sub Command1_Click()
'读取 c:\a.txt 的第 3 行到textbox1，文件名 和 行数可随意修改
Text1.Text = ReadHang("c:\a.txt", 3)
End Sub

Private Function ReadHang(F As String, Hang As Long) As String
'返回文件 F 的第 Hang 行，如果 Hang<1 就返回整个文件内容
Dim H As Long, S As Long, nStr As String
Dim HangS As Long, B() As Byte

On Error GoTo Cuo

S = FileLen(F): H = FreeFile
Open F For Binary As #H
ReDim B(1 To S)
Get #H, , B
Close H
nStr = B
nStr = StrConv(nStr, vbUnicode)

If Hang < 1 Then ReadHang = nStr: Exit Function

S = 0
Do
H = InStr(S + 1, nStr, vbCrLf)
HangS = HangS + 1
If HangS >= Hang Then