Next time dont grade with B until last part was answered ;)
'code snippet ...
Dim IE As InternetExplorer
Dim tag As Variant
Set IE = New InternetExplorer
IE.Navigate2 "www.google.de"
For Each tag In IE.Document.All
Debug.Print tag.tagName
Debug.Print tag.innertext
Next