Jak usunąć puste linie z komponentu RichTextBox oprócz wysyłania klawisza DEL?

Witam, dotychczasz by usuwać puste linie używałem tego:
selectedtext:

RichTextBox3.Focus()
SendKeys.Send("{DEL}")

nie jest to jednak najlepszym rozwiązaniem....

jak można zamiast wywołania klawisza "DEL" usunąć puste linie?
np za pomocą replace jak to prawidłowo zrobić ?

dokladniej to zrobilem button ktory usuwa "selectedText", i po usunieciu tego tekstu zostają blank lines, a chcialbym aby znikająca linia całkiem znikała, nie zostawiając po sobie żadnych śladów że w ogóle tam była...

o to fragment kodu:

        Dim CRPos As Integer 'Stores position of first carriage return or line feed
        CRPos = RichTextBox3.Text.IndexOf(Chr(10))

        If CRPos > -1 Then
            RichTextBox3.Select(0, CRPos)
            RichTextBox3.SelectionLength = CRPos
            RichTextBox4.Text = RichTextBox3.SelectedText
            RichTextBox3.SelectedText = ""
            RichTextBox3.Focus()
            SendKeys.Send("{DEL}")

Nie wiem co dokładnie chcesz uzyskać chodzi o wszystkie puste linie? Jak wszystkie to np. tak:

        Dim tekst As String = RichTextBox1.Text
        tekst = tekst.Trim(vbLf)        
        While tekst.IndexOf(vbLf & vbLf) > 0
            tekst = tekst.Replace(vbLf & vbLf, vbLf)
        End While
        RichTextBox1.Text = tekst