Private Sub CBrock_click()
    Do While Form1.WebBrowser.Busy ' Mientras el explorador anda ocupado
            Wait (1) ' Espera un segundo y prueba de nuevo
        Loop
For i = 0 To 10000
WebBrowser.Refresh
Wait (TBtimer.Text)
Next
End Sub
Private Sub Wait(s As Integer) 'Esperar s segundos
Dim t As Date
t = Now() + s / 86400#
Timer1.Enabled = True

While t > Now()
     DoEvents
Wend
Timer1.Enabled = False
End Sub