VBA 中是否有相当于 Thread.Sleep() 的函数

在VBA中，我们经常需要控制程序的执行速度，让程序在某个时间段内暂停一段时间。在其他编程语言中，我们通常可以使用Thread.Sleep()函数来实现这个功能。然而，在VBA中并没有直接等效的函数。那么，在VBA中该如何实现类似的功能呢？

vba
Sub SleepDemo()
    Dim startTime As Double
    Dim delayTime As Double
    
    startTime = Timer
    delayTime = 5 ' 延迟5秒
    
    Do While Timer < startTime + delayTime
        DoEvents
    Loop
    
    MsgBox "延迟结束！"
End Sub

vba
Sub DownloadProgressBar()
    Dim startTime As Double
    Dim endTime As Double
    Dim totalTime As Double
    Dim progress As Integer
    
    startTime = Timer
    endTime = Timer + 10 ' 模拟下载时间为10秒
    totalTime = endTime - startTime
    progress = 0
    
    Do While Timer < endTime
        ' 模拟下载过程
        progress = Int((Timer - startTime) / totalTime * 100)
        
        ' 更新进度条
        UpdateProgressBar progress
        
        ' 每隔1秒更新一次进度条
        DoEvents
        Application.Wait Now + TimeValue("0:00:01")
    Loop
    
    ' 下载完成
    UpdateProgressBar 100
    MsgBox "下载完成！"
End Sub
Sub UpdateProgressBar(progress As Integer)
    ' 更新进度条的代码
    ' 这里只是简单地显示进度百分比
    Range("A1").Value = "下载进度：" & progress & ""
End Sub