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)   '显示一行。注意看到最后增加的二个字符。可以优化为 一个常量  vbcrlf
Loop                        
Close #fno                                    '关闭文件
End Sub