Il programma non si Blocca....

Per Forzare il Programma ad aggiornarsi devi usare DoEvents

Do
posizione = testohtml.indexOf(rtab, posizione)
'istruzioni
Application.DoEvents()
Loop until posizione = -1