程序代码：

Private Sub fileeexit_Click()
    End
End Sub

Private Sub fileopen_Click()
    On Error GoTo ABC
    CommonDialog1.Filter = "文本文件/*.txt"
    CommonDialog1.cancelerror = True                   '判断用户是否单击了“取消”     
    CommonDialog1.showopen                             '显示打开对话框
    Text1.Text = ""                                   '清空
    Open CommonDialog11.FileName For Input As #1      '把所选文件作为1号文件打开
    Do While Not EOF(1)                                '当没到文本末尾为真
        Line Input #1, inputdate                       '从开的的文件读一行分配给变量inputdate
        Text1.Text = Text1.Text + inputdate + vbCrLf    '这里搞不懂为什么我打开一个文本文件Text1.Text还是空的
    Loop
    Close #1
    Exit Sub
ABC:
    If Err.Number = 32755 Then Exit Sub
    

End Sub

Private Sub filesave_Click()
    CommonDialog1.showsave
    Open CommonDialog1.FileName For Output As 1
    Print #1, Text1.Text   '这一句应该是把所选文件名赋给Text1.Text 吧    可Text1.Text还是空      而且保存的文件打开之前还得自己选文本格式
    Close #1
End Sub
这是个书上的例题，搞不懂
麻烦大家帮忙解答下