Hace tiempo me paso algo parecido a lo tuyo, necesitaba mas tiempo puedes poner varios timers con el tiempo a tope 99999 milisegundos y cuando acabe uno enchufar otro y otro y asi asta qe te de tiempo (Una chapuza impresionante), o hacer un bucle For, to next:
Do
i = i +1
If i = 1000000 then
msgbox "El ciclo ha llegado a 1.000.000"
i=0
Loop
Solo es una idea...