Your beautiful code:
-------------------------------------------------------------------

For i = 0 To WebBrowser1.Document.All.length - 1 
    If WebBrowser1.Document.All(i).tagName = "HTML" Then 
        strContent = strContent & WebBrowser1.Document.All(i).innerHTML
    elseif
        dddd 
        Exit For 
    End If 
Next 

-------------------------------------------------------------------
                           Formatted by itianda's PUVBFormatter
                           http://www.programup.com/blog
