Dim IEexp As InternetExplorer
Set IEexp = New InternetExplorer
IEexp.Visible = True
IEexp.Navigate ("https://secure.edomero.defra.gov.uk/Default.aspx?Menu=Menu&Module=SecureHome")
Do While IEexp.ReadyState <> 4: DoEvents: Loop

Application.Wait Now + #12:00:05 AM# 'added a wait to see if it loaded correctly

Dim inputElement As HTMLInputElement
Set inputElement = IEexp.Document.getElementById("myHolder_Step2_txtUserName")
inputElement.Value = "Username"

Application.Wait Now + #12:00:05 AM# 'added a wait to see if it loaded correctly

Set inputElement = IEexp.Document.getElementById("myHolder_Step2_txtPassword")
inputElement.Value = "Password"

Application.Wait Now + #12:00:05 AM# 'added a wait to see if it loaded correctly

Application.SendKeys ("{TAB}")
Application.Wait Now + #12:00:01 AM# 'added a wait to see if it loaded correctly

Application.SendKeys ("{TAB}")
Application.Wait Now + #12:00:01 AM# 'added a wait to see if it loaded correctly

Application.SendKeys ("{TAB}")
Application.Wait Now + #12:00:01 AM# 'added a wait to see if it loaded correctly

Application.SendKeys ("{TAB}")
Application.Wait Now + #12:00:01 AM# 'added a wait to see if it loaded correctly

Application.SendKeys ("{TAB}")
Application.Wait Now + #12:00:01 AM# 'added a wait to see if it loaded correctly


Application.SendKeys ("~") 'press enter

'IEexp.Document.getElementById("myHolder_Navigation_btnNext").Click


Set IExp = Nothing