'open ASTM/AASHTO test standards website and pass agency username/password to the web page
Dim oBrowser As InternetExplorer
Set oBrowser = New InternetExplorer
oBrowser.Silent = True
oBrowser.Navigate "[URL]https://login.ihserc.com/login/erc[/URL]?"
oBrowser.Visible = True
Do
'Wait till the Browser is loaded
Loop Until oBrowser.ReadyState = READYSTATE_COMPLETE
oBrowser.Document.all.Item("subAcctLoginName").Value = "something"
oBrowser.Document.all.Item("subAcctPassword").Value = "something"
oBrowser.Document.all.Item("Submit").Click