Try
            Dim MeinIE
            Dim READYSTATE_COMPLETE
            READYSTATE_COMPLETE = 4
 
            MeinIE = CreateObject("InternetExplorer.Application")
 
            Do While MeinIE.Busy
            Loop
 
            MeinIE.Visible = 1
            MeinIE.Navigate("http://localhost/index.php")
 
            Do While MeinIE.ReadyState <> 4
            Loop
            Dim oDoc = MeinIE.Document
 
            oDoc.form1.submit()
            oDoc.form1.benutzername.value = "admin"
            oDoc.form1.passwort.value = "admin"
            oDoc = Nothing
            Dim oArea = Nothing
            Dim oRng = Nothing
 
 
        Catch ex As Exception
            MsgBox(ex.Message.ToString, MsgBoxStyle.Critical, "Fehler")
        End Try