this code grabs the contents of the tables in the site and presents them to a page. you could add some additional code to interate thourgh the tables to get the details you are looking for.
' Create a request for the URL.
Dim request As WebRequest = WebRequest.Create("http://en.wikipedia.org/wiki/List_of_House_episodes#Series_overview_and_ratings")
' If required by the server, set the credentials.
request.Credentials = CredentialCache.DefaultCredentials
' Get the response.
Dim response__1 As HttpWebResponse = DirectCast(request.GetResponse(), HttpWebResponse)
' Display the status.
Console.WriteLine(response__1.StatusDescription)
' Get the stream containing content returned by the server.
Dim dataStream As Stream = response__1.GetResponseStream()
' Open the stream using a StreamReader for easy access.
Dim reader As New StreamReader(dataStream)
' Read the content.
Dim responseFromServer As String = reader.ReadToEnd()
' Display the content.
Console.WriteLine(responseFromServer)
' Cleanup the streams and the response.
reader.Close()
dataStream.Close()
response__1.Close()
'reads the html into an html document to enable parsing
Dim doc As IHTMLDocument2 = New HTMLDocumentClass()
doc.write(New Object() {responseFromServer})
doc.close()
'loops through each element in the document to check if it qualifies for the attributes to be set
For Each el As IHTMLElement In DirectCast(doc.all, IHTMLElementCollection)
' check to see if all the desired attributes were found with the correct values
Dim qualify As Boolean = True
If el.tagName = "TABLE" Then
Dim meta As HTMLTableClass = DirectCast(el, HTMLTableClass)
Response.Write(el.outerHTML)
End If
Next