VB中如何创建并写入txt文件

Private Sub Command2_Click()
    Open "F:\TEST\b.txt" For Output As #1
    Print #1, Text1.Text
    Close
End Sub
以上代码可以创建一个txt文件

Private Sub Command1_Click()
    Dim str
    Open "F:\TEST\a.txt" For Append As #1京东
    str = Text1.Text
    Write #1, str
    Close #1
End Sub

以上代码可以往一个txt文件当中写入数据