VB 读写文件

在VB中如何在当前目录下创建一个文件并进行方读写操作，请给出同代码示例

---

VB code:
Private Sub Command1_Click()
CommonDialog1.Filter = "*.txt 文件|*.txt"
CommonDialog1.ShowSave
Open CommonDialog1.FileName For Output As #1
Print #1, Text1.Text
Close #1
End Sub

Private Sub Command2_Click()
Text1.Text = ""
CommonDialog1.Filter = "*.txt 文件|*.txt"
CommonDialog1.ShowOpen
Open CommonDialog1.FileName For Input As #1
Do While Not EOF(1) ' 循环至文件尾。
Line Input #1, TextLine ' 读入一行数据并将其赋予某变量。
Text1.Text = Text1.Text & TextLine & vbCrLf
Loop
Close #1
End Sub

---

strFileName = App.Path & "\1.txt"
MsgBox strFileName