Поиск и замена текста в TextBox

        Dim fe1 As String
        Dim fe As String
        Dim fe2 As String
        Dim j As Integer
        Dim i As Integer
        Dim k As Integer
        j = 0
        i = 0
        k = 0
        fe1 = ""
        fe2 = ""
        fe = TextBox1.Text
n:      If fe(j) = "<" And fe(j + 2) = "i" And fe(j + 4) = "c" And fe(j + 5) = "l" And fe(j + 6) = "a" Then
            i = j + 14
m:          If fe(i + 1) = "/" And fe(i + 2) = "l" And fe(i + 3) = "i" Then
            Else
                fe1 = fe1 + fe(i)
                i = i + 1
                k = k + 1
                GoTo m
            End If
        Else
            j = j + 1
            GoTo n
        End If
        If fe(k) = "/" And fe(k + 1) = "h" And fe(k + 2) = "t" Then
        Else
            fe2 = fe2 + fe1
            GoTo n
        End If
        TextBox2.Text = fe2

Public Function Pars(ByRef strSource As String, ByRef strStart As String, ByRef strEnd As String, Optional ByRef startPos As Integer = 0) As String
        Dim strResult As String
        Try
            Dim iPos As Integer, iEnd As Integer, lenStart As Integer = strStart.Length
            strResult = String.Empty
            iPos = strSource.IndexOf(strStart, startPos)
            iEnd = strSource.IndexOf(strEnd, iPos + lenStart)
            If iPos <> -1 AndAlso iEnd <> -1 Then
                strResult = strSource.Substring(iPos + lenStart, iEnd - (iPos + lenStart))
            End If
        Catch ex As Exception
            Return Nothing
        End Try
        Return strResult
    End Function
    'Chr(34)
    ' <li class="y"></li>
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Try
            For _start As Integer = 0 To TextBox1.Lines.Length
                MsgBox(Pars(TextBox1.Lines(_start), "<li class=" & Chr(34) & "y" & Chr(34) & ">", "</li>"))
            Next
        Catch
        End Try
    End Sub