Il primo elemento non è l'elemento 1, ma 0

for i=0 to Lista.ListItems.Count - 1