Try changing the "section in question" to

Set ipf = .Document.all.Item("ewiHeader_ucEwiLogin_userid")
ipf.Value = username
Set ipf = .Document.all.Item("ewiHeader_ucEwiLogin_password" )
ipf.Value = pass
Set ipf = .Document.all.Item("ewiHeader_ucEwiLogin_ibGo")
ipf.Click

Do Until .ReadyState = 4
DoEvents
Loop

Find the items names in the source code and you'll see what you should
be looking for. Also note that the "Do" loop is placed after the
click event in order to let the new page load before continuing...Ron