VB中的储存保存的代码、谁给修改下、谢谢各位大侠，
Private Sub 储存_Click()Open "file,dat" For Output As #fno
Print #fno, txt.Text
Close #fno
End Sub
Private Sub 显示_Click()
txt.Text = ""
fno = FreeFile()
Open "file.dat" For Input As #fno
Do Until EOF(fno)
Line Input #fno, newline
txt.Text = txt.Text & newline & Chr(13) + Chr(10)
Loop
Close #fno
End Sub
谁给修改下这代码？并且解释上面每段代码的意思、
