下面是将文本框内的数据保存到列表框。但重新启动后就新数据就不显了，请问如何才能保存？
Private Sub Command1_Click()
List1.AddItem Text1.Text
End Sub

谢谢ZHRXJR版主的回复。
本人是希望将新数据通过“添加”钮加到上面的列表中，按下面编程还无法实现该功能（详见图），即软件重启后，新添加内容丢失了。请问要如何改进？
Private Sub Command1_Click()
List1.AddItem Text1.Text
End Sub
Private Sub Form_Load()
Text1.Text = ""   '这句应该如何改；要求是：将下面文本框内输入新内容，点击“添加”钮后，加入上面的“列表框”的最后一行（列表框已有很多数据）
List1.AddItem Text1.Text
End Sub

[此贴子已经被作者于2018-7-3 21:27编辑过]

原来的数据是保存在文本框（或列表框）中，只是每次有新数据，需要在打开原程序添加进去（见图），很麻烦，所以想在软件页面上加设一个过渡的小文本框和按钮时行即时添加，不用到原程序中添加，但就不知如何实现？

谢谢版主的热情帮助，制作了123.txt文件，前一次输入几次（四次）不同数据，当时列表中显示都正常。只是重启后，这四组数据都变为“0”（见图），不知问题出在何处，请指教。又：软件退出后，打开123.txt文件，里面内容是空的；

[此贴子已经被作者于2018-7-4 13:50编辑过]

在列表框内出现的0与重启后的显示是一样的；

感谢ZHRXJR版主的帮助！
我重新制作一个工程，就这三个元素。如你所言，确实可以正常运行。上面所述问题可能在我原软件系统中。我再自查下原因。