COMO SABER COMO QUANTAS LINHAS SE REPETE

        Dim Contador As Integer = 0
        For Each Linha As String In Me.RichTextBox1.Lines
            If Linha.Contains([Ô]<li>[Ô]) And Linha.Contains([Ô]</li>[Ô]) Then
                Contador += 1
            End If
        Next
        MessageBox.Show(Contador)

Imports System.IO
Public Class KeyKeeper

    Dim Escolha As Long
    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        WebBrowser1.Navigate([Ô]http://www.montargilforum.com/ncforum/forumdisplay.php?f=44[Ô])
        Escolha = 2
    End Sub


    Private Sub WebBrowser1_DocumentCompleted(ByVal sender As Object, ByVal e As WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
        Dim i As Integer
        Dim Usuario As String = Environment.UserName
        If Escolha = 1 Then
            If Me.WebBrowser1.ReadyState = WebBrowserReadyState.Complete = True Then
                For i = 0 To WebBrowser1.Document.GetElementsByTagName([Ô]li[Ô]).Count - 1
                    ListBox1.Items.Add(WebBrowser1.Document.GetElementsByTagName([Ô]li[Ô]).Item(i).InnerText)
                Next
            End If
            Escolha = 0
            Exit Sub
        End If
        If Escolha = 2 Then
            If Me.WebBrowser1.ReadyState = WebBrowserReadyState.Complete Then
                WebBrowser1.Document.GetElementById([Ô]vb_login_username[Ô]).SetAttribute([Ô]value[Ô], Me.TextBox1.Text)
                WebBrowser1.Document.GetElementById([Ô]vb_login_password[Ô]).SetAttribute([Ô]value[Ô], Me.TextBox2.Text)
                WebBrowser1.Document.GetElementById([Ô]vb_login_password[Ô]).Focus() [ô] Porque o butão nao tem ID por isso [Ô]FóCO[Ô] nele
                SendKeys.SendWait(Chr(13))
                ClearCache()
                Escolha = 0
                Exit Sub
            End If
        End If
    End Sub

    [ô]Limpa Cache
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If ClearCache() = True Then
            MsgBox([Ô]Cache Cleared[Ô])
        Else
            MsgBox([Ô]Cache not cleared[Ô])
        End If
    End Sub
    Sub EmptyCacheFolder(ByVal folder As DirectoryInfo)
        For Each file As FileInfo In folder.GetFiles()
            file.Delete()
        Next
        For Each subfolder As DirectoryInfo In folder.GetDirectories()
            EmptyCacheFolder(subfolder)
        Next
    End Sub
    Public Function ClearCache() As Boolean
        Dim isEmpty As Boolean
        Try
            EmptyCacheFolder(New DirectoryInfo(Environment.GetFolderPath(Environment.SpecialFolder.InternetCache)))
            isEmpty = True

        Catch
            isEmpty = False

        End Try
        Return isEmpty
        If (Not (ClearCache())) Then

        End If

    End Function
End Class

  WebBrowser1.Navigate([Ô]http://www.montargilforum.com/ncforum/[Ô])
        Escolha = 2