[php]imports system.net
imports system.text
imports system.io[/php]
[php]Private Function loadPage(ByVal page As String) As String
Dim req As WebRequest = WebRequest.Create(page)
Dim resp As WebResponse = req.GetResponse()
Dim s As Stream = resp.GetResponseStream()
Dim sr As StreamReader = New StreamReader(s, Encoding.ASCII)
Dim doc As String = sr.ReadToEnd()
Return doc
End Function[/php]