Add Listbox Values to an Array

Hey all,

I have two listboxes the user selects the value from one listbox and puts it to the next listbox. i then want to run a code to look through the second listbox and add each item in the listbox to an array.

the code i have works if the user clicks on the first item in the listbox, but it doesnt work if they dont. i want it to work if the user hasnt clicked on the first item, i just want it to look through and get all values.

Do Until COUNTER = 20

   ListBox2.ListIndex = COUNT
   Let NARY(COUNTER) = ListBox2.VALUE
       
    COUNTER = COUNTER + 1
    COUNT = COUNT + 1
    
Loop

I though that the ListBox2.ListIndex = COUNT would select an item and then would get the value from it but it doesnt seam to work.

Thanks