怎样用commondialog打开txt

怎样用commondialog打开txt文件啊

可不可以用commondialog将外部txt文件导入到程序里面的text.text1里啊？
如果可以就把代码留下^_^
如果不行就把告诉我。。
追加50分
还有
Private Sub Command2_Click()
Me.Text1 = Me.Text1
CommonDialog1.Filter = "TXT File(*.txt)|*.txt"
CommonDialog1.ShowSave
CommonDialog1.flags = &H2 + &H4 + &H8
If CommonDialog1.FileName <> "" Then
Save(这个代码应该怎么写*) Me.Text1, CommonDialog1.FileName
End If
End Sub

SavePicture用来保存图片的。。那保存txt文件的呢？

或者建议你使用API函数 直接调用函数的方式会更简便 程序中任何地方都可以调用

添加一模块,代码如下:
'**************选择文件声明
Public Declare Function GetOpenFileName Lib "comdlg32.dll" Alias "GetOpenFileNameA" ( _
pOpenfilename As OPENFILENAME) As Long

Public Type OPENFILENAME
lStructSize As Long
hwndOwner As Long
hInstance As Long
lpstrFilter As String
lpstrCustomFilter As String
nMaxCustFilter As Long
nFilterIndex As Long
lpstrFile As String
nMaxFile As Long
lpstrFileTitle As String
nMaxFileTitle As Long
lpstrInitialDir As String
lpstrTitle As String
flags As Long
nFileOffset As Integer
nFileExtension As Integer
lpstrDefExt As String
lCustData As Long
lpfnHook As Long
lpTemplateName As String
End Type

'文件选择函数