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"