Your code might work if all the list boxes had equal number of items. Consider this approach:
Dim list As New List(Of ListBox)
list.AddRange({ListBox1, ListBox2, ListBox3})
For Each l As ListBox In list
For Each s As String In l.Items
ListBox4.Items.Add(s)
Next
Next
Hope this helps.
regs