Try
                    Dim MeinIE
                    Dim READYSTATE_COMPLETE
                    READYSTATE_COMPLETE = 4
 
                    MeinIE = CreateObject("InternetExplorer.Application")
 
                    Do While MeinIE.Busy
                    Loop
 
                    MeinIE.Visible = 1
                    MeinIE.Navigate("http://www.meinewebseite.de")
 
                    Do While MeinIE.ReadyState <> 4
                    Loop
                    Dim oDoc = MeinIE.Document
                    oDoc.formname.feldname.value = "Benutzername"
                    oDoc.formname.feldname.value = "Passwort"
                    oDoc.formname.submit()
 
                    oDoc = Nothing
                    Dim oArea = Nothing
                    Dim oRng = Nothing
 
                    Catch ex As Exception
                    MsgBox(ex.Message.ToString, MsgBoxStyle.Critical, "Fehler")
                    Exit Sub
 
                End Try