Example from my project:
Code:
'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 "https://login.ihserc.com/login/erc?"
oBrowser.Visible = True
Do
'Wait till the Browser is loaded
Loop Until oBrowser.ReadyState = READYSTATE_COMPLETE
oBrowser.Document.all.Item("subAcctLoginName").Value = "user"
oBrowser.Document.all.Item("subAcctPassword").Value = "password"
oBrowser.Document.all.Item("Submit").Click