I posted this question yesterday, but received no response. I had
researched this website to glean the below code to access a webpage,
however, it is not working for me. Can anyone assist me in where I'm
going wrong? Thanks in advanced.

Dim IE As Object
Dim sHTML As String

Application.ScreenUpdating = True
Set IE = GetObject("InternetExplorer.Application")

With IE
.Visible = True
.Silent = True
.Navigate "http://Intranet/Add/topic_add.asp"
Do Until Not .Busy
DoEvents
Loop
sHTML = .document.documentelement.innerText
.Quit
End With
Set IE = Nothing

My problem is that the code I'm attempting to utilize does not seem to
call the webpage and sHTML doesn't ever get set to anything. If I leave
in the "Do Until" then the program loops infinately.

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!