Me gustaría un retraso de 1 segundo en mi código. A continuación se muestra el código que estoy tratando de retrasar. Creo que sondea la fecha y la hora del sistema operativo y espera hasta que coincidan las horas. Tengo un problema con el retraso. Creo que no sondea el tiempo cuando coincide con el tiempo de espera y simplemente se queda allí y se congela. Solo se congela aproximadamente el 5% del tiempo que ejecuto el código. Me preguntaba acerca de Application.Wait y si hay una manera de verificar si el tiempo sondeado es mayor que el tiempo de espera.

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