Dim s As String, t As StringOpen "文件名路径" For Binary As #1s = Input(LOF(1), #1)Close #1t = "要查找的字符"If Instr(s, t) Then MsgBox "文件中存在要查找的字符！"Else MsgBox "文件中不存在要查找的字符！"End If
循环查找比对！
