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 