Metti un

DoEvents

all'interno del ciclo