Listbox1 add all the items to richtextbox in the same format - vb.net

Question

I'm trying to get all the ListBox1 items and have them go to the RichTextBox1. I want it in the same format that it's in the ListBox1. I've tried different code and they seem to give extra blank lines in between items. So far I've thought of this but it give extra blank lines.
Dim counter As String
counter = ListBox1.Items.Count - 1
ListBox1.SelectedIndex = 0
If ListBox1.SelectedIndex = 0 Then
Do Until ListBox1.SelectedIndex = counter
ListBox1.SelectedIndex = ListBox1.SelectedIndex + 1
RichTextBox1.Text = RichTextBox1.Text & vbNewLine & ListBox1.SelectedItem
Loop
End If

Answer 1

Use LINQ to select all the items and join on Environment.NewLine:
.Net >= 4.0
Me.RichTextBox1.Text = String.Join(Environment.NewLine, (From item As Object In Me.ListBox1.Items Select Me.ListBox1.GetItemText(item).Trim()))
.Net >= 3.5
Me.RichTextBox1.Text = String.Join(Environment.NewLine, (From item As Object In Me.ListBox1.Items Select Me.ListBox1.GetItemText(item).Trim()).ToArray())

Answer 2

you are adding a vbNewLine before you add the ListBox text... you should put that at the end of the line RichTextBox1.Text = RichTextBox1.Text & ListBox1.SelectedItem & vbNewLine and you also shouldn't increment your selected index value until after you add the line...
Alternatively, You can do this..
For i = 0 To ListBox1.Items.Count - 1
RichTextBox1.Text = RichTextBox1.Text & ListBox1.Items(i) & vbCrLf
Next
OR this SO question has a few good examples using LINQ and condensed query code...
passing all the items of listbox in the richtextbox

Answer 3

This is because initially the richtextbox is empty. Hence RichTextBox1.Text = RichTextBox1.Text & vbNewLine & ListBox1.SelectedItem will add a New Line first and the add the second element of list to the richtextbox, this is because you incremented the selected index value by 1 before adding to the richtexbox. So your code can be used in an effective way as follows:
Dim counter As Integer = ListBox1.Items.Count - 1
ListBox1.SelectedIndex = 0
If ListBox1.SelectedIndex = 0 Then
Do Until ListBox1.SelectedIndex = counter
RichTextBox1.Text = RichTextBox1.Text & ListBox1.SelectedItem & vbNewLine
ListBox1.SelectedIndex = ListBox1.SelectedIndex + 1
Loop
End If

Answer 4

try saving the listbox to a file using a streamwriter and writeline(), then opening it into a text box using streamreader and readtoend()
'assuming you have the default names
dim reader As streamreader, writer As streamwriter
writer = new streamwriter("TMP")
for each x as object in listbox1.items
writer.writeline(X)
next
writer.close()
reader=new streamreader("TMP")
textbox1.text=reader.readtoend()
reader.close()