Dim F As Integer
  On Error Resume Next
  With CommonDialog1
    .CancelError = True
 
    .Flags = cdlOFNOverwritePrompt
 
 
    .Filter = "Textdateien (*.txt)|*.txt"
 
    .ShowSave
    If .FileName <> "" Then
      F = FreeFile
      Open .FileName For Output As #F
      Print #F, Text1.Text
      Close #F
    End If
  End With