open "c:\myfile.txt" for output as #1
write #1,text1.text
close #1

dim textvalue as string
open "c:\myfile.txt" for input as #1
input #1,textvalue 
close #1
text1.text=textvalue

open "c:\myfile.txt" for output as #1
for i=0 to list1.listindex-1
write #1,list1.list(i)
next
close #1

dim listval as string
open "c:\myfile.txt" for input as #1
do while not eof(1)
input #1,listval
list1.additem listval
loop
close #1