Excel VBA中TextBox模拟InputBox行为问题：循环无法等待输入

原代码的核心问题是用For循环同步执行逻辑：第一次加载窗体时用户有时间输入，但循环进入第二次时，代码会直接读取TextBox的当前空值，不会等待用户输入就继续执行，导致跳过输入环节。要实现等待用户输入后再验证，必须改成事件驱动逻辑——让用户输入完成后点击按钮触发验证，用变量记录尝试次数，每次点击按钮才执行一次验证流程。

修改步骤： #

1. 在用户窗体的代码模块顶部声明模块级变量，用于记录尝试次数：

Private attemptCount As Integer

2. 在窗体初始化事件中初始化尝试次数，设置初始提示文本：

Private Sub UserForm_Initialize()
    attemptCount = 1
    AttemptMessage.Caption = "Attempt " & attemptCount & " of 3"
    ' 初始化时清空输入框并聚焦，引导用户输入
    UserEntry.Value = ""
    UserEntry.SetFocus
End Sub

3. 添加验证按钮（建议命名为btnVerify）的点击事件，将原循环内的验证逻辑移至此处：

Private Sub btnVerify_Click()
    Dim correctPassword As String
    Dim enteredPassword As String
    
    ' 先检查网络请求状态
    If httpRequest.Status = 200 Then
        correctPassword = httpRequest.responseText
        enteredPassword = UserEntry.Value
        
        ' 验证密码
        If enteredPassword = correctPassword Then
            MsgBox "密码正确，已授予访问权限。"
            Unload Me
            Exit Sub
        Else
            attemptCount = attemptCount + 1
            ' 判断剩余尝试次数
            If attemptCount <= 3 Then
                IncorrectPassword.Caption = "密码错误，请重试"
                UserEntry.Value = ""
                UserEntry.SetFocus
                AttemptMessage.Caption = "Attempt " & attemptCount & " of 3"
            Else
                MsgBox "密码错误，已拒绝访问。"
                ThisWorkbook.Close savechanges:=False
            End If
        End If
    Else
        MsgBox "无法从在线源获取正确密码。"
    End If
End Sub

关键逻辑说明： #

• 模块级变量attemptCount跨事件记录尝试次数，避免循环自动执行带来的无等待问题
• 仅当用户点击验证按钮时才触发验证，确保用户已完成输入操作
• 验证失败后自动清空输入框并聚焦，引导用户再次输入
• 移除原代码中的For循环与GoTo语句，用事件流替代循环逻辑，更贴合VBA窗体的交互特性

内容的提问来源于stack exchange，提问作者anotherSTACKmember