关于 INPUT 函数问题-超出文件尾

Dim a As Integer
Open (App.Path + "\cptemp\system32.sav") For Input As #1
Input #1, a
Close #1
ListView1.ListItems(1).SubItems(1) = a
红色那一段，会不定时的出现错误。（我有两个程序，另外一个程序不定时打开App.Path + "\cptemp\system32.sav"这个文件并更新数字。
这是另外一个程序的全部代码。
Dim sys32 As Integer
MyFile = Dir("C:\WINDOWS\System32\*.*")
    Open (App.Path & "\sdsave\WINDOWS\system32\" & sys32 & ".sav") For Output As #1
 Print #1, MyFile
   Close #1
 sys32 = sys32 + 1
 Open (App.Path & "\cptemp\system32.sav") For Output As #3
 Print #3, sys32
bksys32:
On Error GoTo ersys32
MyFile = Dir
    Open (App.Path & "\sdsave\WINDOWS\system32\" & sys32 & ".sav") For Output As #1
Print #1, MyFile
   Close #1
sys32 = sys32 + 1
 Open (App.Path & "\cptemp\system32.sav") For Output As #3
 Print #3, sys32
GoTo bksys32
ersys32:
End
注：上下两端代码不是同一个程序的代码，是两个程序。上面的代码运行之前先执行shell下端代码的程序。