怎么用commondialog控件保存和打开txt文件,并输入在text1.text里?

打开一个文件放入text1：
With CommonDialog1
.DialogTitle = "打开文件"
.Filter = "文本文件 (*.txt)|*.txt|所有文件|*.*"
.FilterIndex = 0
.ShowOpen
Dim tmpLoadStr As String
Open .FileName For Input As #1
Do While Not EOF(1)
Line Input #1, tmpLoadStr
text1.Text = text1.Text & tmpLoadStr & vbCrLf
Loop
Close #1
End With

写入到一个文件：

With CommonDialog1
.DialogTitle = "保存文件"
.Filter = "文本文件 (*.txt)|*.txt|所有文件|*.*"
.FilterIndex = 0
.ShowSave
Open .FileName For Output As #2
Print #2, text1.Text
Close #1
End With