WaitUntil 语句
        中断程序执行,直到指定的时间。
    
    
    WaitUntil 时间
    
            「时间」: 日期时间表达式,在执行程序之前等待的日期与时间。
    
    
    
    
        REM 等到下午六点,调用 MyMacro。
        REM 如果在下午六点以后,退出。
        Sub ExampleWaitUntil
        Dim vTimeschedule As Double
            vTimeSchedule = Date() + TimeValue("18:00:00")
            If vTimeSchedule < Now() Then Exit Sub
            WaitUntil vTimeSchedule
            Call MyMacro
        End Sub