How to simplify code for multiple selected items in a ListBox?

I have a form with 10 listboxes. I want to simplify the code to select and deselect items in the listbox. This is my original code:

For i = 0 To ListBox1.ListCount - 1
    If ListBox1.Selected(i) = True Then ListBox9.AddItem ListBox1.List(i)
Next i

For i = 0 To Listbox1.ListCount - 1
    If ListBox1.Selected(i) = True Then ListBox10.AddItem ListBox1.List(i, 
1)
Next i

But I have to write that 8 times to cover the 8 different listboxes on the form. It also copies selection to listboxes 9 & 10

What I want to do is this:

For x = 1 To 8
For i = 0 To "ListBox" & x.ListCount - 1
    If "ListBox" & x.Selected(i) = True Then ListBox9.AddItem "ListBox" & 
x.List(i)
Next i
For i = 0 To ListBox & x.ListCount - 1
    If ListBox & x.Selected(i) = True Then ListBox10.AddItem ListBox & 
x.List(i, 1)
Next i
Next x

But it throws an "Invalid qualifier" fault. Any help would be appreciated Thank-you