Comparing/Removing Data

[Vredig]

I have two listboxes that I need to compare. One contains some numbers between 1-11000; the second box contains all numbers 1-11000.

What I'm trying to do is take a string from the first list and remove it from the second list.

    Dim i As Short
    Dim x As Short

        For x = 0 To List2.Items.Count - 1
            For i = 0 To List1.Items.Count - 1
                If List1.Items(i) = List2.Items(x) Then
                    List2.Items.Remove(x)
                End If
            Next i
        Next x

That is the code that I have, but it doesn't function right. I don't get any errors, but it also doesn't remove the numbers from list1.

I forgot to add: If you couldn't tell, I'm a complete newb.