Как отменить загрузку текста в TextBox из файла в случае его отсутствия - VB

Формулировка задачи:

При изменении Texbox'ов программа записывает в фаил "1.txt" изменения. А при запуске программы изменяет значения Texbox'ов на указанные в файле (по средствам массива). При первом запуске программы, она выдает ошибку, из-за отсутствие файла и не запускается. Вопрос: как заставить программу избежать события *загрузки из 1.txt*, если фаил отсутствует? Код прилагается:

                    Листинг программы
                
 
                        
                          
                    
Private Sub Command1_Click()
Dim i As Integer
  Open App.Path + "\" + "1.txt" For Output As #1
  For i = 0 To Controls.Count - 1
    If TypeName(Controls(i)) = "TextBox" Then
      Write #1, Controls(i).Text
    End If
  Next i
  Close #1
End Sub

                    Листинг программы
                
 
                        
                          
                    
Private Sub Form_Load()
Dim i As Integer, a
 Open App.Path + "\" + "1.txt" For Input As #1
  For i = 0 To Controls.Count - 1
    If TypeName(Controls(i)) = "TextBox" Then
      Input #1, a: Controls(i).Text = a
    End If
  Next i
 Close #1 
End Sub

забыл. напрочь.

Дождешься.. Вопрос исчерпан, ответ оставлю на память потомкам:

                    Листинг программы
                
On Error Resume Next
Dim i As Integer, a
 Open App.Path + "\" + "1.txt" <...>

или

                    Листинг программы
                
 
                        
                          
                    
On Error GoTo ErrorMark
Dim i As Integer, a
 Open App.Path + "\" + "1.txt" <...>
Exit Sub
ErrorMark:
Msg = "Ой, наверно файл куда-то запропал, попробуйте восстановить!?"
MsgBox Msg, , "Караул, нет данных!"

Решение задачи: «Как отменить загрузку текста в TextBox из файла в случае его отсутствия»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Dim Path As String
 
Private Sub Form_Load()
Path = Dir(App.Path & "\Project1.vbp")
If Path = vbNullString Then
    Label1 = "ГЂ ГґГ*Г©Г«Г* ГІГ® Г*ГҐГІГі!"
Else
    Label1 = "Г‚Г±ГҐ Гў ГЇГ®Г°ГїГ¤ГЄГҐ, ГґГ*Г©Г« Г*Г* Г¬ГҐГ±ГІГҐ"
End If
 
End Sub