Public Enum READYSTATE
    UNINITIALIZED = 0
    LOADING = 1
    LOADED = 2
    INTERACTIVE = 3
    COMPLETE = 4
End Enum
 
Dim ieAppli As Variant
 
   Set ieAppli = CreateObject("InternetExplorer.Application")
    ieAppli.Visible = True
    ieAppli.Navigate2 "http://www.testseite.de"
    Do While ieAppli.READYSTATE <> READYSTATE.COMPLETE
        Debug.Print ieAppli.READYSTATE
        Sleep 20
    Loop