Dim WithEvents m_doc As HTMLDocument
 
' seite laden
Set m_docNU = New HTMLDocument
Set m_doc = m_docNU.createDocumentFromUrl(url, vbNullString)
 
Do While m_doc.readyState = "loading" Or m_doc.readyState = "interactive"
    DoEvents
Loop
 
set txtUsername = m_doc.getElementById("username")
set txtPasswort = m_doc.getElementById("passwort")
set myButton = m_doc.getElementById("submit")
 
myButton.click
 
' warten bis einloggen erfolgt 
Do While m_doc.readyState = "loading" Or m_doc.readyState = "interactive"
    DoEvents
Loop