CMDia.CancelError = True
  On Error Resume Next
  CMDia.ShowOpen
  If Err.Number <> 0 Then
    On Error GoTo 0
    Exit Sub
  End If

Public Function IsIDE() As Boolean
  On Error Resume Next
  Debug.Print 1 / 0
  IsIDE = (Err <> 0)
End Function

I=0: existierende Datei öffnen
I=1: neue Datei anlegen
StrMsg: enthält einen Speicherort (z.B. "N:\mein Speicherort")
 
    On Error Resume Next
    'Hier wird in meinem Programm geprüft, ob ein vom User festgelegter 
    'Speicherort (z.B. ein USB-Speicherstick) tatsächlich verfügbar ist:
    Me.Dialog1.InitDir = IIf(OBJEKT_AUF_LW_VORHANDEN_EINS("Ordner", StrMsg) = _
      True, StrMsg, App.Path)
 
    Me.Dialog1.CancelError = True
    Me.Dialog1.Filter = "*.txt (UTF8-Textformat)|*.txt"
    Select Case I
        'Existierende Datei aufrufen:
    	Case 0: Me.Dialog1.Flags = cdlOFNFileMustExist + cdlOFNExplorer + _
      cdlOFNHideReadOnly
                Me.Dialog1.DialogTitle = "Datei initialisieren..."
                Me.Dialog1.ShowOpen
	'Neue Datei anlegen:
        Case 1: Me.Dialog1.Flags = cdlOFNCreatePrompt + cdlOFNOverwritePrompt + _
          cdlOFNHideReadOnly
                Me.Dialog1.DialogTitle = "Neue Dateien anlegen..."
                Me.Dialog1.ShowSave
    End Select
 
    StrMsg = ""
    If Me.Dialog1.FileName = "" Or Err.Number = 32755 Then
        Me.Dialog1.InitDir = ""
        MsgBox "Keine Datei initialisiert oder angelegt.", 16, ApplName
        Me.cmdDatei(1).SetFocus
        Exit Sub
    End If