Private Sub Command1_Click()

Dim i As Long, EHTML
For i = 1 To WebBrowser1.document.All.length
Set EHTML = WebBrowser1.document.All.Item(i)
Next i

MsgBox EHTML

End Sub

Private Sub Form_Load()
    WebBrowser1.Navigate2 "www.google.com"
    End Sub