Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object,
URL As Variant)
If (pDisp Is WebBrowser1.Object) Then
Debug.Print "Web document is finished downloading"
End If
End Sub
Reference:
How To Determine When a Page Is Done Loading in WebBrowser Control
http://support.microsoft.com/kb/q180366/