Public Sub Command3_Click()
check$ = InputBox("请按照该格式输入（20XX-X-XX）")
Open "d:\" & Form2.Caption & check$ & ".txt" For Input As #1
input #1,b$
Text1.Text = b$
Close #1
End Sub
这段代码运行之后在文本框中始终只能显示一行文字，请问怎么修改才可以显示所有内容呢，有劳大家了。