是否可以关闭无限循环的MsgBox?

有点傻,但我找不到答案。

Private Sub Textbox1_Change()
    Do While Len(Trim(Textbox1.Text)) > 4
       MsgBox "Please enter your birthyear in format of ####"
    Loop
End Sub

因为我想强制用户只输入4位数字,显然不是 意识到我做了一个 infinite-loop 因为它不可能关闭 MsgBox 一旦你到达 >4 角色,它继续创造 新的 是的,甚至在你问了一声“好”之后,那个突然出现的。

消息框 以模态形式打开,我无法单击任何编辑器元素。