错误的文件名或文件号？

Private Sub Command1_Click()
errbar:   On Error GoTo errbar
    Open "c:\111.txt" For Input As #1000
    Close #1000
End Sub

文件111.txt不存在时，上面这段代码为何只能重来一次，而不能一直执行下去？
如何能让他一直执行下去？ --------------------编程问答-------------------- LZ,请多看一点基础方面的书籍 --------------------编程问答--------------------

引用 1 楼 m60a1 的回复:

LZ,请多看一点基础方面的书籍

这个自然应该，不过还是希望你多指教，给条明路 --------------------编程问答-------------------- Private Sub Command1_Click() 
    On Error resume next 
    Open "c:\111.txt" For Input As #1000 
    Close #1000 
End Sub  --------------------编程问答--------------------

引用 3 楼 chinaboyzyq 的回复:

Private Sub Command1_Click()
   On Error resume next
    Open "c:\111.txt" For Input As #1000
    Close #1000
End Sub

如果我要是想删除文件呢——其实就是因为删除文件时会出现这样的问题，我才整了这么个小程序来调试——没真正删除就执行下面的去了，会出问题的 --------------------编程问答--------------------     If(Dir("c:\111.txt") = "") Then
        MsgBox "文件111.txt不存在"
        Exit Sub
    End If

    Open "c:\111.txt" For Input As #1000 
    Close #1000 --------------------编程问答--------------------

引用 5 楼 of123 的回复:

    If(Dir("c:\111.txt") = "") Then
        MsgBox "文件111.txt不存在"
        Exit Sub
    End If

    Open "c:\111.txt" For Input As #1000
    Close #1000

谢谢朋友你的关注！我的问题可能没太表达清楚，我就是要让他这里出错，最好是能死循环下去，因为：

我的一个小程序里，要多次“写文件，删文件，重命名文件...”，但有时会在删文件时出错，提示“权限”的问题，不过点提示对话框上的“调试”按钮后再继续执行就又正确执行下去了。
我现在就是在想法子捕捉错误，然后回头再执行一次或多次，直到正确删除为止，而不要有错误提示。

补充：VB ,  基础类