Dim coll As New Collection
Dim i As Integer
Dim x As Integer
Dim y As Integer
Dim str() As String
Dim TTText As String
WebBrowser1.Refresh
TTText = WebBrowser1.Document.body.innertext
str = Split(TTText, vbCrLf)
RichTextBox1.Text = ""
For i = 0 To UBound(str)
For y = 1 To Len(str(i))
    If Mid(str(i), y, 1) = "|" Then
        If coll.Count > 0 Then
        Dim aa As Long
        aa = Len(RichTextBox1.Text)
zanovo:
        For x = 1 To coll.Count
            If coll(x) = aa Then
            aa = aa - 1
            GoTo zanovo
            Else
            coll.Add aa
            End If
        Next x
        Else
        coll.Add Len(RichTextBox1.Text)
        End If
    Else
    RichTextBox1.Text = RichTextBox1.Text & Mid(str(i), y, 1)
    End If
Next y
RichTextBox1.Text = RichTextBox1.Text & vbCrLf
Next i

For x = 1 To coll.Count
If coll(x) > 0 Then
RichTextBox1.SelStart = coll(x) - 1
RichTextBox1.SelLength = 1
RichTextBox1.SelColor = vbGreen
End If
Next x
RichTextBox2.TextRTF = RichTextBox1.TextRTF