did you edit it a bit? you didnt just copy and paste did you. Because list1.additem isnt what you want. I'm looking at it now dude, if you make the small shanges yourself you should get this:
'write
Open "c:\file.txt" For Output As #1
Print #1, "hello2"
Close #1
'read
Open "c:\file.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, Data
Text1.Text = Data
Loop
Close #1
That works.