Невозможно скопировать пустые строки моего RichTextBox

Question

Я пытаюсь скопировать весь текст RichTextBox в буфер обмена.

Это, как я добавить текст в RichTextBox:

RichTextBox1.Text += vbNewLine & AlbumName 
RichTextBox1.Text += vbNewLine & AlbumLink & vbNewLine 
RichTextBox1.SelectionStart = RichTextBox1.Text.Length 
RichTextBox1.ScrollToCaret() 

Но я не могу признать vbnewline (судимый также с помощью VBCrlf):

Private Sub ToolStripMenuItem2_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem2.Click 
    Clipboard.SetText(RichTextBox1.Text.Replace(vbNewLine, "    ")) 
End Sub 

блокнота не может распознать что пустые строки при вставке текста, но если я вставляю один и тот же скопированный текст в другой TextEditor, например, в «Редактор SublimeText», тогда распознаются VBNewLines ...

UPDATE

Пробовал с помощью Environment.NewLine, но я получаю тот же результат.

Это пример текста копируется из моего RichTextBox вставленного в блокноте:

Escape the Fate - Ungrateful (2013)http://vk.com/doc3197020_179614905?hash=97855f387cf7d8a85bThe King Is Dead - Once Upon A Burning House [EP] (2013)http://vk.com/doc3197020_183005958?hash=bdea3f04fe101eae11Sleeping With Sirens - Alone [single] (2013)http://vk.com/doc3197020_182922598?hash=27e50a03a30b4ec89cPalisades - Outcasts (2013)http://vk.com/doc3197020_182588309?hash=90f629956bcfc59029Done! 

это тот же текст вставили в других редакторах:

Escape the Fate - Ungrateful (2013) 
http://vk.com/doc3197020_179614905?hash=97855f387cf7d8a85b 

The King Is Dead - Once Upon A Burning House [EP] (2013) 
http://vk.com/doc3197020_183005958?hash=bdea3f04fe101eae11 

Sleeping With Sirens - Alone [single] (2013) 
http://vk.com/doc3197020_182922598?hash=27e50a03a30b4ec89c 

Palisades - Outcasts (2013) 
http://vk.com/doc3197020_182588309?hash=90f629956bcfc59029 

Done! 

Answer 1

Вы могли бы использовать:

Private Sub ToolStripMenuItem2_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem2.Click 
    Dim curStart As Integer = RichTextBox1.SelectionStart 
    Dim curLength As Integer = RichTextBox1.SelectionLength 

    RichTextBox1.SelectAll() 
    RichTextBox1.Copy() 

    RichTextBox1.Select(curStart, curLength) 
    RichTextBox1.Focus() 
End Sub