İnternet sayfası tam açılamazsa makro beni nasıl uyarır ?

[pitsss]

Sub websiteac()
Dim IE As Object
Set IE = CreateObject("InternetExplorer.Application")
With IE
IE.Visible = True
.navigate "http://www.google.com"
Do While .Busy: DoEvents: Loop
Do While .readyState <> 4: DoEvents: Loop
End With
End Sub

İyi akşamlar arkadaşlar, yukarıdaki kodda gördüğünüz gibi internet Explorer ı kullanarak herhangi bir site açıyoruz. ve açılma işlemi bitene kadar beklemesini istiyoruz. Burada, eğer o site açılmaya çalışır da tam olarak açılma işlemi bitmezse yani progress bardaki yeşil ilerleme çubuğu yarıdatakılıp kalır ise beni uyara bilecek herhangi bir kod var mı acaba?
Mesela benyukarıda ki kodlar ile bir site açmaya çalışıyorum ancak site tam olarak açılamadığında makroyu yarıda kesince doevents kısmının sarı olduğunu görüyorum. Aslında Doevents kısmı tam tamamlanmıyor. öylece tamamlanmasını bekliyor. ama site tam açılamadığı için sanki sistem takılmış gibi duruyor. bunu nasıl engelleyebilirim. mesela 15 saniye süre ile internet sayfası açılmazsa bana uyarı versin ya da tamamlamayı kesip makrodan çıksın. bunu yapabilme şansımız var mı acaba ?