<font color=green>' Abbrechen-Schaltfläche erzeugt "Fehler", wenn "CancelError" & _
  "= True"</font>
On Error Resume Next
With CommonDialog1
  .CancelError = True
  .Filename = ""  <font color=green>' keine autom. Vorgabe des 
  ' Dateinamens</font> 
  .ShowOpen
  If Err = 0 Then
    <font color=green>' OK wurde gewählt</font>
  Else
    <font color=green>' Abbrechen wurde gewählt</font>
  End If
End With
On Error Goto 0