vba延时代码问题

欢乐马64406

因需要延时功能，参考论坛以前的代码修改了一下
Sub StockSleep(slSecond)
        Set Wrap = CreateObject("DynamicWrapperX")
        Wrap.Register"KERNEL32.DLL","Sleep","i=u", "f=s"
        Wrap.Sleep(slSecond)
End Sub
'延时2秒程序范例
Sub Test()
        FOR I = 0 TO 100
                  StockSleep(10)
                  Application.PeekAndPump
        NEXT
                MsgBox "延时完成"
End Sub

For i=0 to 10
        Application.MsgOut i
        Test()
Next
但是以上代码Application.MsgOut i只输出了第一个值0，什么原因呢？

补充内容 (2023-1-16 15:12):
我是想暂停后继续循环Application.MsgOut i的，要怎么改？

梁国强

先读取时间，然后在循环中不断读取时间，直到时间差为2秒，退出循环。