VB中在text1中输入：123,并保存。关闭程序后，第二次打开text1中还是123。直到有新的内容。

1.下面是关于文件读写的:

private sub 窗体_Load()
on error resume next
dim temptxt as string
open c:\save.txt for input as #1
do while not eof(1)
input #1,temptxt
text1.text=text1.text & temptxt &vbctrl
loop
close #1
end sub

private sub 保存按钮_click() '或关闭窗口
dim l as integer
l = text1.text
dim i as integer, j as integer
open "c:\save.txt" for output as 1
print #1, l
next i
close
end sub

2.下面是关于注册表读写的:

private sub 窗体_Load()
on error resume next
Set WSH = CreateObject("WScript.Shell")
text1.text=wsh.RegRead("注册表完整路径键值名")
set wsh = noting
end sub

private sub 保存按钮_click() '或关闭窗口
Set WSH = CreateObject("WScript.Shell")
WSH.regWrite "注册表完整路径键值名"，text1.text，"REG_SZ"
set wsh = noting
end sub

个人认为注册表的方法比较好,方便快捷 还比较安全