Задержки по времени в VBA

Я хочу задержку в 1 секунду в моем коде. Ниже приведен код, в котором я пытаюсь сделать эту задержку. Я думаю, он опрашивает дату и время в операционной системе и ждет, пока время не совпадет. У меня проблема с задержкой. Думаю, он не опрашивает время, когда оно совпадает с временем ожидания, а просто сидит и зависает. Он зависает только в 5% случаев, когда я запускаю код. Мне было интересно узнать о Application.Wait и о том, есть ли способ проверить, превышает ли время опроса время ожидания.

   newHour = Hour(Now())
   newMinute = Minute(Now())
   newSecond = Second(Now()) + 1
   waitTime = TimeSerial(newHour, newMinute, newSecond)
   Application.Wait waitTime