excl vba 暂停一段时间后继续执行

waitTime = TimeSerial(Hour(Now()), Minute(Now()), Second(Now()) + 3)

Application.Wait waitTime