Dim iWeb As New WebBrowser
 
        iWeb.Navigate(Link)
 
'Schleife solange die Seite geladen wird
        WaitForHTMLLoad()
 
        Dim ElementListe As HtmlElementCollection
        ElementListe = iWeb.Document.GetElementsByTagName("input")
 
        For Each Element As HtmlElement In ElementListe
            Select Case Element.Name
                Case "tbUsername" : Element.SetAttribute("value", "Username")
                Case "tbPassword" : Element.SetAttribute("value", "Pwort")
            End Select
        Next
        iWeb.Document.GetElementById("Submit").InvokeMember("click")
 
'Schleife solange die Seite geladen wird
        WaitForHTMLLoad()
...

<input name="tbUsername" type="text" id="tbUsername" class="username" />
<input name="tbPassword" type="password" id="tbPassword" class="password" />