Do while döngüsü

[OnlineCasinoLTD.CoM]

Excelde asagidaki do while döngüsü kullanıyorum...

Ancak bazı site adreslerinde WebBrowser1.ReadyState değeri hiçbir zaman 4 olmuyor ve döngü sürekli dönüp duruyor.... Böyle bir durumda örnegin 30 sn sonra do while döngüsünden cikmasini nasil saglarim...???

WebBrowser1.ReadyState <> 4 sartini kontrol etsin... Ancak 30 sn sart saglanmiyorsa devam etsin gibi???

Do While WebBrowser1.ReadyState <> 4 : DoEvents: Loop
Do While WebBrowser1.Busy = True: DoEvents: Loop