Elimina al contrario e tieni presente che iniziano da zero

codice:
For i = Lista.ListItems.Count-1 To 0 step -1
 If Lista.ListItems.Item(i) = "pippo" Then 
   Lista.ListItems.Remove i 
  End If 
Next