Hi. How about this...

Sub test()
Dim ie As Object, url As String, i As Integer
url = "http://www.soccernet.com/"
Set ie = CreateObject("internetexplorer.application")
ie.navigate url
Do While ie.ReadyState <> 4: Loop
For i = 0 To ie.document.all.Length - 1
Debug.Print ie.document.all(i).innertext
Next
ie.Quit
Set ie = Nothing
End Sub