Question

关于vb文件控制问题，text文本框写入记事本

如图，我想实现的功能是：
1：点击按钮1后text1种的“一”被写入指定记事本（比如e：/newfile.txt）第一行。
2：点击按钮2后text2中的“二”被写入同上记事本“一”的后面，二者之间加三个空格的位置，就是想把他们隔开。
3：按钮3和按钮4功能以此类推
4：清除换行的功能是：擦去4个文本框的文本，并在上面的记事本中换行，让下一次点击按钮1的时候text1里面的文本能写入记事本第二行的开头。
谁帮我下 我自己学习中，

Answer 1

Sub SaveTxt(s As String)
Open "e:\newfile.txt" For Append As #1
Print #1, s;
Close #1
End Sub

Private Sub Command1_Click()   '按钮1
SaveTxt Text1.Text
End Sub

Private Sub Command2_Click()   '按钮2
SaveTxt "   " & Text2.Text
End Sub

Private Sub Command3_Click()   '按钮3
SaveTxt "   " & Text3.Text
End Sub

Private Sub Command4_Click()   '按钮4
SaveTxt "   " & Text4.Text
End Sub

Private Sub Command5_Click()   '清除换行
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
SaveTxt vbCrLf
End Sub