文件列表框中文件的内容为什么不在文本框中显示？

一下这段代码所完成的驱动器，目录和文件列表框操作中文件列表框中的内容为什么不能在text1中显示呢？（控件都加了） Private Sub Drive1_Change() Dir1.Path = Drive1.Drive End Sub

Private Sub File1_Click() ChDrive Drive1.Drive ChDir Dir1.Path Text1.Text = "" Open File1.FileName For Input As #1 b = "" Do Until EOF(1) Line Input #1, nextline b = b & nextline & Chr(13) & Chr(10) Loop Close #1 Text1.Text = b

End Sub 谢谢帮助！