Díky moc už to jde :D , jinak jsem to upravil na 
If RichTextBox1.Lines.Count > i Then
            RichTextBox2.Text = RichTextBox2.Text + vbNewLine + (RichTextBox1.Lines(i))
            i += 1
        End If
pac v richTextBox2.Lines.Add(richTextBox1.Lines(i)) byl problem v tom "add"
 
 

