On Error GoTo frmName_mnuSpeichern_Click
 
    With CommonDialog1
        .CancelError = True
        .Filter = "Richtext (*.rtf)|*.rtf|alle Dateien (*.*)|*.*"
        .FileName = ""
        .InitDir = pubEXEpfad
        .FilterIndex = 1
        .ShowSave
        rtfText.SaveFile (.FileName)
    End With
 
    pribSpeichern = False
    ...
 
    Exit Sub
frmName_mnuSpeichern_Click:
    Me.MousePointer = 0
    If Err.Number = 32755 Then Exit Sub
    MsgBox Err.Number & " " & Err.Description, vbCritical, _
      "frmName_mnuSpeichern_Click"