怎么 取列表框每一行的值?

text1=""
for i=0 to list1.listcount-1
text1=text1 & list1.list(i) & vbcrlf
next

写文件:
open app.path & "wenjin.txt" for append as #1
for i=0 to list1.listcount-1
print #1, list1.list(i) & vbcrlf
next
close #1

循环读取
for i&=0 to list1.listcount-1
list1.list(i)中就是每一条的内容
next