wiki something

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim url As String = TextBox1.Text
        Dim page As String = GetPageHTML(url)
        For i = 0 To 1
            page = Mid(page, InStr(page, "<!-- bodycontent -->"))
        Next
        page = tagremover(page)
        TextBox2.Text = page

    End Sub
    Public Function GetPageHTML(ByVal URL As String) As String
        Dim request As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create(URL)
        Dim response As System.Net.HttpWebResponse = request.GetResponse()
        Dim sr As New System.IO.StreamReader(response.GetResponseStream)
        GetPageHTML = sr.ReadToEnd
    End Function
    Public Function tagremover(ByVal html)
        Do Until InStr(html, ">") = 0
            html = Mid(html, 1, InStr(html, "<") - 1) & Mid(html, InStr(InStr(html, "<"), html, ">") + 1)
        Loop
        tagremover = html
    End Function
End Class