Private Sub Command1_Click()

Line Input #1, a
Text1.Text = a
End Sub

Private Sub Form_Load()
Open "c:\11.txt" For Input As #1
End Sub

11.txt 中的内容为
62
13
14
16

text1 控件没有累加功能，
所以你要手动一行一行的累加添加。

Private Sub Command1_Click()
Line Input #1, a
Text1.Text = Text1.Text & a & vbcrlf             '把新内容放到后面，并且再增加一个回车符
End Sub

Private Sub Form_Load()
Open "c:\11.txt" For Input As #1
End Sub

谢谢