Public Class Form1

    Dim html As String
    Dim startsearchfrom As Integer
    'Dim letters() As String = {"a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z", "A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "W", "X", "Y", "Z", "V"}
    Dim letters As String = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"
    Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click

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


        TextBox2.Text = html


    End Sub

    Function getname()
        Dim name As String
        name = TextBox1.Text



    End Function
    Private Sub Button2_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button2.Click

        removespikybrackets()
        'html = removeweirdandsign()
        TextBox2.Text = html
    End Sub

    Sub removespikybrackets()
        Dim i As Integer = 0
        Dim j As Integer = 0
        Do Until i = Len(html) - 1
            If html(i) = "<" Then
                j = i
                Do Until html(j) = ">"
                    j += 1
                Loop
                html = Mid(html, 1, i) + Mid(html, j + 2, Len(html) - j)
                If i <> 0 Then
                    i -= 1
                End If
            Else
                i += 1
            End If
        Loop

    End Sub

    Sub removeweirdandsign()
        Dim i As Integer = 0
        Dim j As Integer = 0
        Do Until i = Len(html) - 1
            If html(i) = "&" Then
                j = i
                Do Until letters.Contains(html(j))
                    j += 1
                Loop
                html = Mid(html, 1, i) + Mid(html, j - 1, Len(html) - (j))
                If i <> 0 Then
                    i -= 1
                End If
            Else
                i += 1
            End If
        Loop

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        removeweirdandsign()
        TextBox2.Text = html
    End Sub
End Class