ok sono riuscito in questo modo..
codice:
Private Sub Form_Load()
Set ie = CreateObject("InternetExplorer.Application") 
ie.navigate "http://txodds.com/omoves.php?ot=0" 
Do Until ie.readystate = 4: Loop 
ht = ie.document.body.innerText 
ie.quit
End Sub
ma non vanno bene 2 cose...
1) viene riportata tutta la pagina
2) non riporta la formattazione originale...ma incolla su una sola e interminabile linea...