Direi di provare ad aggiungere un

DoEvents

nel ciclo ...