如何處理 找不到檔案 的訊息。(編號:4226)

我有四個檔案必須循序被讀進來,但其中缺了一個檔案,我該如何處理這個問題,就是略過這個錯誤訊息,繼續往下讀取。
EX:
.
.
.
Open "d:\program\modem\pcp" & input_file & "01.cal"_
  For Input As #1

Do While Not EOF(1)
 Line Input #1, linestr1
 .
 .
close 1
Open "d:\program\modem\pcp" & input_file & "02.cal" For_
Input As #1

Do While Not EOF(1)
 Line Input #1, linestr1
 .
 .
 .