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
这段代码运行之后在文本框中始终只能显示一行文字，请问怎么修改才可以显示所有内容呢，有劳大家了。

输入改动如下:
while not eof(1)
line input #1,tx
a=a+tx+chr(13)+chr(10)
wend
text1.text=a

Public Sub Command3_Click()
dim whole as string
check$ = InputBox("请按照该格式输入（20XX-X-XX）")
Open "d:\" & Form2.Caption & check$ & ".txt" For Input As #1
do while not eof(1)
line input #1,b$
whole$=whole$+b$+chr(13)+chr(10)
close #1
Text1.Text = b$
End Sub

写错了,text1.text=whole$

楼上的，联系我：QQ58959352