在系统里，搜索就可以找到了
Dim A, S As String
Dim FreeNum As Integer
FreeNum = FreeFile
'Freenum表示一个空闲的文件号
Open "e:\vb\1.txt" For Input As #FreeNum
'这步是打开“date.txt”，for input表示以输入方式（即读取文件）打开。如果要写入文件则应该用output或append。
Do until EOF(FreeNum) '循环，直到文件结尾。Eof函数用来判断文件是否读完
Line Input #FreeNum, A
If A = "192.168.1.80" Then
MsgBox "正常OK"
Exit Do '找到了退出循环
End If
Loop
Close #FreeNum
这样不就可以了吗`?~~~还在下面的东西干什么啊``