Ok Im not exactly sure what you are looking for but I think that replacing the lines from this:


List1.itemdata(List1.ListIndex)(i)

to this

List1.itemdata(i)




will solve your Type-Mismatch problem.