rt,重新打开又初始化了,内容又变回编译时的了

　　需要用外部磁盘文件来存储文本框中的数据，下次启动程序时先装载外部文件数据到文本框，如果有修改，还应该存储这些文本框中的数据（更新外部文件的内容）。
　　因此，你需要在窗体中设置【装载数据】和【保存数据】两个按钮。

Option Explicit
Private Sub 装载数据()
On Error Resume Next
Dim CC As String, n As Integer, i As Integer
Dim nWJ As Integer, cWJ As String
n = 5 '　有5个文本框，外部文件中有5行数据，可更改此数据适应要求
cWJ = "文本框数据.TXT" '　每行一个文本框数据
nWJ = FreeFile
Open cWJ For Input As #nWJ
For i = 1 To n
Line Input #nWJ, CC
Text1(i - 1).Text = CC '　文本框数组下标从0开始
Next
Close #nWJ
End Sub
Private Sub 保存数据()
On Error Resume Next
Dim n As Integer, i As Integer
Dim nWJ As Integer, cWJ As String
n = 5 '　有5个文本框，外部文件中有5行数据，可更改此数据适应要求
cWJ = "文本框数据.TXT" '　每行一个文本框数据
nWJ = FreeFile
Open cWJ For Output As #nWJ
For i = 1 To n
Ptrint #nWJ, Trim(Text1(i - 1).Text) '　文本框数组下标从0开始
Next
Close #nWJ
End Sub

GetSetting 函数, 从 Windows 注册表中的应用程序项目返回注册表项设置值。
SaveSetting 语句, 在 Windows 注册表中保存或建立应用程序项目。
===================================================================
'保存到注册表
SaveSetting "工程主题","主键名","键名","键值"
'读取注册表
GetSetting "工程主题","主键名","键名","默认键值" '默认键值,当获取为空,或不成功时返回默认值
抄下来的一大段