等待秒數內

  Dim t1 As Single
        t1 = Now.Second
        While Now.Second < t1 + 5
            Application.DoEvents()
        End While