Y los dos intentos que he hecho intentando poner menos de 1 segundo son así:
1º.- Pensé poner una rutina que fuese un bucle FOR/NEXT como éste:
Sub Pausa()
For a = 1 To 90000
Next a
End Sub

Y lo que me pasa es que cuando subo el contador a un nº aproximado, cercano al que simule medio segundo, el programa se queda colgado.

2º.- Pensé usar el Sleep poniendo al principio del programa
Option Explicit
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Y una rutina:
Sub Pausa()
Sleep 500
End Sub

Y aparentemente se queda colgado. Luego al poco, sale la ultima imagen de la sucesión, como si estuviese TODO el retardo junto al principio y luego pasasen todas las imágenes de corrido.