Styring af Internet Explorer fra VBA virker ikke hver gang

Hej,

Jeg har lavet en meget enkelt VBA makro som skal åbne IE, gå ind på en hjemmeside, og logge ind. Men det går nogle gange galt inden den får skrevet brugernavnet. Jeg mistænker det er fordi den prøver at sætte brugernavnet ind i feltet, inden siden er færdig med at loade. Det underlige er bare at jeg har sat en "Doevents" løkke på:

Koden er følgende:

Sub test()

Dim ie As Object
Set ie = CreateObject("internetexplorer.application")

ie.Visible = True

ie.navigate "http://tvangsauktioner.dk/Login/"

While ie.busy
    DoEvents
Wend

ie.document.getElementById("ctl00$ctl00$cphBody$cph$UsernameTextBox").Value = "TEST"

end sub

Håber nogen kan hjælpe, da det er lidt mystisk.