VB里面把文字保存在软件上的代码

就是在VB里面做了一个工程，里面做了一个TEXT1，然后在做了一个控件Command1，我的想法是，在运行软件后在TEXT1里面打了一段文字，然后按下控件Command1，之后关掉这个工程，在去打开这个工程的时候，我前面打的那段文字还在TEXT1里面。我想知道怎么实现它的代码，最好的是，在按下控件Command1的时候会自动把它做一个TXT文件保存在我做的这个工程所在的文件夹下的一个子文件夹下，如果我一打开，就自动的调取这个TXT文件。如果可以的话，顺便告诉我每个代码它表达的意思是什么。

追问：谢谢了，对了，老师，我还有些问题，可以和你在QQ上聊吗？

答案：代码如下：
Private Sub Command1_Click()
    writeFile "1.txt"
End Sub
Sub readFile(file As String)
  Dim Text_File As String
  On Error GoTo errhandle:
    Open file For Input As #1
    Do Until EOF(1)
        Input #1, Text_File
        Text1.Text = Text1.Text & Text_File & Chr(13) & Chr(10)
        DoEvents
    Loop
    Close #1
errhandle:
End Sub
Sub writeFile(file As String)
Open file For Output As #1
    Print #1, Text1.Text
Close #1
End Sub
Private Sub Form_Load()
    readFile "1.txt"
End Sub
不看就聊
保存为一个文件，运行时读取

private sub form_load()
text1.text=""
open app.path & "\TextBox.txt" for input as #1
while not eof(1)
line input #1, s
text1.text=text1.text & s & vbcrlf
wend
close #1
end sub

private sub command1_click()
open app.path & "\TextBox.txt" for output as #1
print #1,Text1.text
close #1
end sub

上一个：谁帮我写一个VB查ascii的程序
下一个：求一些大一的vb期末考试题和答案