Slet fra en list - ikke så nemt som det ser ud

Jeg har 2 lister:

lstID og lstAttribute

lstTime: 08-02-2008 08:22:45, 08-02-2008 08:22:47, 08-02-2008 08:24:45, 08-02-2010 08:22:45, 08-02-2008 12:22:45 osv.
lstAttribute: "ninja", "tralalla", osv. osv.

Dvs. for hver linie i lstTime, er der også en linje i lstAttribute.

Jeg ønsker nu at lave en Timer, som "scanner" hvert sekund, om tiden (fra lstTime) er kommet til at fjerne linjen fra lstTime og lstAttribute.

Det gøres med en timer:

Timer1:
do until i = lstTime.listcount

    If lstTime.List(I) <= Now Then
    'Send til sletning
    lstTemp.additem lstAttribute.list(i)
    end if


    i = i + 1
Loop


-----------

Nu har vi en liste (lstTemp) som indeholder IDs fra listerne, som skal fjernes

Hvad er den mest effektive måde at fjerne dem fra lstTime og lstAttribute? Man kan ikke blot lave et loop, og fjerne dem med .RemoveItem, da fjerner man linje 54, så bliver næste ID, f.eks. 195, til 194.

Agggggghhhhhhh....!