怎么将一个listbox中的数据全读出来

如何将一个listbox中的数据全读出来？
list1里面有n行数据（n未知）
我现在要将里面的数据全读一遍，不知道该如何写。谢谢！

[解决办法]
dim i as long
for i=0 to list1.listcount-1
?list1.list(i)
next