Public Class Form1
    Dim html As String
    Dim startsearchfrom As Integer
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        html = New System.Net.WebClient().DownloadString(TextBox1.Text)


        TextBox2.Text = html
    End Sub
    Function removeextras(i) As String
        For j = i To Len(html) - 1
            If html(j) = ">" Then

                html = Mid(html, 1, i) + Mid(html, j + 2, Len(html) - j)

                Return html
            End If
        Next
    End Function
    Function getname()
        Dim name As String
        name = TextBox1.Text



    End Function
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim i As Integer = 0
        Do Until i = Len(html) - 1
            If html(i) = "<" Then

                html = removeextras(i)
                'startsearchfrom = i - 1
                If i <> 0 Then
                    i -= 1
                End If

            Else
                i += 1
            End If


        Loop
        TextBox2.Text = html
    End Sub
End Class