Imports System.Net
Imports System.IO
Imports System.Diagnostics

Module Module1
    Function GetPage(ByVal pageUrl As String) As String
        Dim s As String = ""
        Try
            Dim request As HttpWebRequest = WebRequest.Create(pageUrl)
            Dim response As HttpWebResponse = request.GetResponse()
            Using reader As StreamReader = New StreamReader(response.GetResponseStream())
                s = reader.ReadToEnd()
            End Using
        Catch ex As Exception
            Debug.WriteLine("FAIL: " + ex.Message)
        End Try
        Return s
    End Function

    Function ExtractBody(ByVal page As String) As String
        Return System.Text.RegularExpressions.Regex.Replace(page, ".*<body[^>]*>(.*)</body>.*", "$1", System.Text.RegularExpressions.RegexOptions.IgnoreCase)
    End Function

    Sub Main()
        Dim page As String = GetPage("http://yoururl.foo")
        Dim body As String = ExtractBody(page)
        Debug.WriteLine(body)
    End Sub

End Module