GetOpenFileNameA funktioniert nicht mehr in Access 2013

[compinaut]

Hallo,
in der Access Version 2010 benutzte ich die Windowsfunktion GetOpenFileNameA zum Öffnen des Dateidialogs. Dies funktionierte problemlos. Nun benutze ich die Access Version 2013 und die Funktion gibt NULL zurück, obwohl ich die Deklaration um PtrSafe erweitert habe. Die comdlg.dll ist auf dem Rechner auch vorhanden.
Kann mir vielleicht jemand helfen?
Gruß
compinaut

[Lachtaube]

aus der Win32API_PtrSafe.txt

Code [Auswählen] Erweitern

Type OPENFILENAME
        lStructSize As Long
        hwndOwner As LongPtr
        hInstance As LongPtr
        lpstrFilter As String
        lpstrCustomFilter As String
        nMaxCustFilter As Long
        nFilterIndex As Long
        lpstrFile As String
        nMaxFile As Long
        lpstrFileTitle As String
        nMaxFileTitle As Long
        lpstrInitialDir As String
        lpstrTitle As String
        flags As Long
        nFileOffset As Integer
        nFileExtension As Integer
        lpstrDefExt As String
        lCustData As LongPtr
        lpfnHook As LongPtr
        lpTemplateName As String
'#if (_WIN32_WINNT >= 0x0500)
        pvReserved As LongPtr
        dwReserved As Long
        FlagsEx As Long
'#endif // (_WIN32_WINNT >= 0x0500)
End Type

Declare PtrSafe Function GetOpenFileName Lib "comdlg32.dll" Alias "GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As Long