读取文本文件的行数

Option Explicit
Private Sub Form_Load()
Dim hT1 As Integer, hCount As Integer, hFreeNumber As Integer
Dim tmp As String
hFreeNumber = FreeFile
Open "c:\1.TXT " For Input As #hFreeNumber
While Not EOF(hFreeNumber)
Line Input #hFreeNumber, tmp
hCount = hCount + 1
If tmp = " " Then hCount = hCount - 1
Wend
Close #hFreeNumber
MsgBox hCount

End Sub