错误三次则结束程序的问题 - 编程论坛

我想做的这个案例要求：利用代码打开"生产表.xlsx",如果输入密码错误时继续弹出输入框，
连续错误三次则关闭程序。
正确密码是789.
我在EXCEL VBA里正常运行，可是VB里不行。
代码如下：
Option Explicit

Dim XlApp As New Excel.Application    '使用 Excel 对象删除指定行
Dim XlBook As New Excel.Workbook
Dim XlSheet As New Excel.Worksheet

Private Sub Command1_Click()
On Error Resume Next
Dim i As Byte, PsdStr As String
Do
    Err.Clear
    i = i + 1
    PsdStr = XlApp.InputBox("请输入密码:" & Chr(10) & "您还有" _
        & 4 - i & "次机会", "第" & i & "次输入密码", , , , , , 3)
    XlApp.Workbooks.Open XlApp.ThisWorkbook.Path & "\生产表.xlsx", , , , PsdStr
    If i = 3 Then
        MsgBox "对不起，你已错误三次，程序即将关闭"
        Exit Sub
    Else
        If Err.Number = 0 Then Exit Sub
    End If
Loop
XlApp.StatusBar = "打开工作簿成功..."

End Sub

Private Sub Form_Load()
Set XlApp = CreateObject("Excel.Application") '创建EXCEL对象
XlApp.Visible = True
XlApp.Caption = "应用程序调用 Microsoft Excel"

Set XlBook = XlApp.Workbooks.Open(App.Path & "\7-29 防错处理二.xlsm")
Set XlSheet = XlBook.Worksheets(1)
End Sub
我尝试着改了一下代码，上面是我改过的，还是不行，打不开那个生产表。
请问高手，哪里有问题呀？谢谢！
付VBA代码：
Sub 打开工作簿()
    On Error Resume Next  '错误时执行下一步
    Dim i As Byte, PsdStr As String
    Do  '启动循环
        Err.Clear    '清除错误，相当于将Err.Number属性值归零，其作用是避免上一次的错误干扰当前操作的判断结果
        i = i + 1    '累加变量,记录输入密码的次数
        '弹出输入框让用户输入打开工作簿的密码，同时显示允许输入几次
        PsdStr = Application.InputBox("请输入密码：" & Chr(10) & "您还有" & 4 - i & "次机会", "第" & i & "次输入密码", , , , , , 3)
        '利用前面输入的密码去打开代码所在工作簿同路径下的“生产表.xlsx”
        Workbooks.Open ThisWorkbook.Path & "\生产表.xlsx", , , , PsdStr
        If i = 3 Then '如果已经错误三次
            MsgBox "对不起,你已错误三次,程序即将关闭" '则提示用户
            Exit Sub '然后关闭程序
        Else   '否则
           '如果程序没有错误就结束循环(密码正确的情况下才会无错误)，如果有错误则会返回Do语句之后，重新输入密码
            If Err.Number = 0 Then Exit Do
        End If
    Loop
    Application.StatusBar = "打开工作簿成功..." '在状态栏显示打开成功
End Sub