Private Sub cmdSave_Click()
  <font color=green>' Wird auf im "CommonDialog" auf "Abbrechen" geklickt, 
  ' wird (wenn CancelError = True ist) ein Laufzeitfehler ausgelöst.</font>
  On Error Resume Next
  With CommonDialog1
    .CancelError = True
 
    <font color=green>' Hinweis, falls Datei bereits vorhanden</font>
    .Flags = cdlOFNOverwritePrompt  
 
    .ShowSave
    If Err = 0 Then
      <font color=green>' Es wurde auf "Speichern" geklickt</font>
      MsgBox "Ausgewählter Dateiname: " & .Filename
    Else
      <font color=green>' Abbrechen wurde gewählt</font>
      ...
    End If
  End With
End Sub