用这个方法:
1、先执行代码
While vars("标志") <> "4" Application.DoEventsEnd Whilemsgbox(123)
2、你只有把 vars("标志") = "4" 执行以后,才会弹出123