如何處理找不到檔案的訊息。(編號：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
　.
　.
　.