实时异常62。超出文件尾 Line Input #1, strTmp 哪位高手可以帮小弟我运行试试 改下异常，小弟我先在这里多谢了

实时错误62。超出文件尾 Line Input #1, strTmp 谁可以帮我运行试试 改下错误，我先在这里谢谢了
下面的代码意思是，vb编程 按Command1复制Text1+text2的输入内容时，在同一天，如已经复制过同样内容则弹出对话框提示，“今天已经复制过该内容！”按“是”确认，按“否”取消。 补充说明：复制命令重复不提示，同一天复制的内容相同时才提示。运行时提示 实时错误62。超出文件尾 Line Input #1, strTmp变黄色。 帮我运行看看这段代码，改改还有什么地方错误。
Private Sub Command1_Click()
Dim strTmp As String

If Dir(App.Path & "\copied.txt") = "" Then
  Open App.Path & "\copied.txt" For Output As #1
  Print #1, Date
  Close #1
Else
  Open App.Path & "\copied.txt" For Input As #1
  Line Input #1, strTmp

  If CDate(strTmp) <> Date Then
  Close #1
  Open App.Path & "\copied.txt" For Output As #1
  Print #1, Date
  Close #1
  Else
  Do Until EOF(1)
  Line Input #1, strTmp
  If strTmp = Text1 & Text2 Then
  If MsgBox("今天已经复制过该内容！", vbOKCancel) = vbCancel Then
  Close #1
  Exit Sub
  End If
  Exit Do
  End If
  Loop
  Close #1
  End If
  End If


Clipboard.Clear
Clipboard.SetText Text1 & Text2.Text

Open App.Path & "\copied.txt" For Append As #1
Print #1, Text1.Text & Text2.Text
Close #1
End Sub


[解决办法]
App.Path & "\copied.txt" 这个文本文件为空。