求有中断功能的函数，类似msgbox

Question

我程序的其中一个地方非得使用msgbox让程序中断了，然后手工点击确定，程序下一步才能正常，搞不懂原因。求一个类似msgbox能中断进程，但是又不会弹出对话框的函数。

Answer 1

本来想多说两句，不过也不知道楼主结束＂中断进程＂的条件是什么，就面楼上的sleep吧：）

Answer 2

做个延时程序，可以用sleep,也可以自写一个很简单，百度上搜一下。

Answer 3

sleep 不是会使程序卡住吗? 就是像死机一样~ 建议用TIMER  计时器

Answer 4

sleep我试过了，虽然能停止一段时间，但是我的程序还是不正常，用msgbox点确定后才正常

Answer 5

Private Sub wb_DocumentComplete(ByVal pDisp As Object, URL As Variant)
if (pDisp Is wb.Object) then
  dim doc
  set doc=wb.Docuemnt
  doc.all("myID", 0).Value = Sheets("我的工作表").Rows(1).Cells(1)
  MsgBox "xx"
  doc.getElementById("btnsbu").Click
end if
end sub我想用webbrowser控件操作web页面，上面是webbrowser的事件，在Click前，必须有MsgBox才行，不然Click就不正常了，不懂为什么，想找个函数代替，用Sleep不行