Private Sub Command4_Click()
CommonDialog1.Filter = "txt|*.txt"
CommonDialog1.ShowOpen
Open CommonDialog1.FileName For Input As #1
Input #1, n
Text1.Text = n
Close #1
End Sub

为什么不能读取txt全部内容？只读到一部分？请高手指点！

谢谢。