<code>Private Sub cmdSave_Click()
  Dim F As Integer
 
  On Local Error Resume Next
  With CommonDialog1
    .CancelError = True
    .ShowSave
 
    If Err <> 0 Then
      <font color=green>' Abbrechen wurde gewählt</font>
   Else
      <font color=green>' Datei zum "Schreiben" öffnen</font>
      F = FreeFile
      Open .Filename For Output As #F
      <font color=green>' z.B. Inhalt der Textboxen Text1, Text2 und Text3 
      ' speichern</font>
      Print #F, Text1.Text
      Print #F, Text2.Text
      Print #F, Text3.Text
      Close #F
    End If
  End With
End Sub</code>