باز کردن فایل برای نوشتن

سلام
این اموزش رو مطالعه کنید: [url]http://www.softafzar.net/thread419.html/[/url]

خیلی ممنون ولی برنامه من ،با کنترل commondialog هست برای ذخیره و باز کردن ، خطا می ده

Dim sfilename As String
Dim stext As String
Dim sfilter As String
Dim buffer As String
Dim filehandele%

sfilter = " text (*.txt)|*.txt | allfiles (*.*)| *.* "


cdMain.Filter = sfilter
cdMain.ShowSave

  If cdMain.FileName <> "" Then
  sfilename = cdMain.FileName
  
  stext = Text1.Text
  filehandel% = FreeFile
  
 Open sfilename For Output As #filehandle%

Private Sub Command1_Click()
Dim sfilename As String
Dim stext As String
Dim sfilter As String
Dim buffer As String
Dim filehandele%
sfilter = " text (*.txt)|*.txt | allfiles (*.*)| *.* "
cdmain.Filter = sfilter
cdmain.ShowSave
If cdmain.FileName <> "" Then
    sfilename = cdmain.FileName
    stext = Text1.Text
    filehandel = FreeFile
    Open sfilename For Output As #filehandel Len = 8
End If
 
End Sub