Dim IE As New SHDocVw.InternetExplorer   '***
 Dim URL As String
 Dim Ext As String
 Dim ocell As Range
 Dim file_loc As String
 Dim ResultDIV As HTMLDivElement, AllResultsDIV As HTMLDivElement,
OneResultDIV As HTMLDivElement
 Dim message As String
  Dim htmlDoc As MSHTML.HTMLDocument
 Dim htmlInput As MSHTML.HTMLInputElement
 Dim htmlColl As MSHTML.IHTMLElementCollection
 Dim counter As Integer
 Dim DLd As Boolean
 
 file_loc = "C:\newfolder\"
 
    Set IE = CreateObject("InternetExplorer.Application")
    With IE
    .Visible = 1
    .Navigate "http://www.fxstreet.com/forum/showthread.php?t=2910"
      
        
    Do While .Busy: DoEvents: Loop   ' runtime error occurs here or on the
next line
    Do While .readyState < 4: DoEvents: Loop

   ...