Dim ie As SHDocVw.InternetExplorer
        Dim w As Object
        Dim Objcollection As Object
 
 
        ie = CreateObject("InternetExplorer.Application")
 
        ie.Visible = True
        ie.navigate("application.local/") 
 
 Do : Loop Until ie.Busy = False
 Do : Loop Until ie.document.readyState = "complete"
 
Objcollection = ie.document.getElementsByTagName("input")
Objcollection(0).Value = "username"
Objcollection(1).Value = "password"
 
ie.document.getElementById("loginButton").Click()

wd = IEWindowfromTitle ("Menue")