Public Declare Function CommDlgExtendedError Lib "comdlg32.dll" () As Long 

Select Case CommDlgExtendedError
Case COMDLG32ERR_DIALOGFAILURE
  strMsg = "Der Dialog kann nicht geöffnet werden."
Case COMDLG32ERR_FINDRESFAILURE
  strMsg = "Eine benötigte Ressource kann nicht gefunden werden."
Case COMDLG32ERR_INITIALIZATION
  strMsg = "Der Dialog konnte nicht initialisiert werden (Nicht genug Speicher)."
Case COMDLG32ERR_LOADRESFAILURE
  strMsg = "Der Dialog konnte eine angegebene Resource nicht laden."
Case COMDLG32ERR_LOADSTRFAILURE
  strMsg = "Es konnte ein angegebener String nicht geladen werden."
Case COMDLG32ERR_LOCKRESFAILURE
  strMsg = "Es konnte eine angegebene Resource nicht sperren werden."
Case COMDLG32ERR_MEMALLOCFAILURE
  strMsg = "Die CommonDialog-Fenster Funktion konnte keinen Speicher alloziieren."
Case COMDLG32ERR_MEMLOCKFAILURE
  strMsg = "Der benötigte Speicher kann nicht gesperrt werden."
Case COMDLG32ERR_NOHINSTANCE
  strMsg = "Es wurde kein gültiger Instanzhandle übergeben."
Case COMDLG32ERR_NOHOOK
  strMsg = "Es wurde keine gültige Hookfunktion angegeben."
Case COMDLG32ERR_REGISTERMSGFAIL
  strMsg = "Die RegisterWindowMessage " & _
  " Funktion lieferte einen Fehler beim Aufruf zurück."
Case COMDLG32ERR_NOTEMPLATE
  strMsg = "Es wurde kein gültiges Template angegeben."
Case COMDLG32ERR_STRUCTSIZE
  strMsg = "Die Strukturgröße ist ungültig."
Case COMDLG32ERR_CANCEL
  strMsg = "Der Dialog wurde mit der Cancel-Taste geschlossen."
Case Else 
  strMsg = "Undefined error ..." & CommDlgExtendedError
End Select