If startindex >= 0 Then
RichTextBox1.SelectionColor = Color.Red
Dim endindex As Integer = "<td><p>".Length + (40)
RichTextBox1.Select(startindex, endindex)
RichTextBox2.AppendText(RichTextBox1.SelectedText & vbNewLine)
start = startindex + endindex
End If
Hvala