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

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, , "Караул, нет данных!"

        Dim i As Integer, a
       
        Try
            Open App.Path + "\" + "1.txt" <...>
        Catch ex As Exception
            Msg = "Ой, наверно файл куда-то запропал, попробуйте восстановить!?"
            MsgBox Msg, , "Караул, нет данных!"
        End Try

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