VB的保存机制挺奇怪的，不知道是我代码的问题还是VB自身的问题。
如下图，我简单编写了一个记事本程序，代码如图一，当我试图保存类似于【1.中文】时，再次读取就没把后半段内容读出来，如图二图三。请问这有解决办法吗

在input前面加line试试看呢

用二进制打开试试，我觉得用二进制打开简单一点

text1 :MultiLine属性设置为True。
倒数第四行改成: text1text＝a
10年没玩了，试试看

反了，a＝text1

a＝text1
print a

'　在当前文件夹中进行文件操作，可以用相对路径；
'　如果在指定文件夹中进行文件操作，才使用绝对路径。
Private Sub Load_Click()
Dim a As String
Text1.Text = ""
Open "Example.TXT" For Input As #1
Do While .Not.Eof(1)
Line Input #1, a
Text1.Text = Text1.Text & a & vbCrLf
Loop
Close #1
End Sub
Private Sub Save_Click()
Open "Example.TXT" For Output As #1
Print #1,Text1.Text
Close #1
End Sub