Devi inserire un DoEvents all'interno del ciclo do while per far si che la CPU non debba dedicarsi soltanto al tuo ciclo.

Facci sapere...
Ciao.