怎么回事？

一个代码：
Private Sub Command1_Click()
Dim tmp As String
Open "C:\My Documents\gmail.txt" For Input As #1
Open "C:\My Documents\gmail2.txt" For Output As #2
Do While Not EOF(1)
Line Input #1, tmp
If InStr(1, Trim(tmp), "操作历史报告") > 0 Then
Exit Do
If InStr(1, tmp, "members/earn.php?") > 0 Then
Print #2, tmp
Chr (13) & Chr(10)
End IfClose #1
Close #2
End If
Loop
End Sub 遇到实时错误 文件无法打开调试后黄色显示在：
Open "C:\My Documents\gmail.txt" For Input As #1 我思来想去很久，代码的逻辑应该没什么错误，怎么会发生这种情况？请大家指点一下，不胜感激。