HRESULT PStoreCreateInstance(
  IPStore** ppProvider,
  PST_PROVIDERID* pProviderID,
  void* pReserved,
  DWORD dwFlags
);

Zitat:

Parameters ppProvider [out] A pointer to the retrieved interface pointer for the storage provider. When you finish using the interface, decrement its reference count by calling its IUnknown::Release method. This parameter cannot be NULL. pProviderID [in] A pointer to the GUID that identifies the storage provider. If this parameter is NULL, then the base storage provider is used. pReserved [in] Reserved; must be NULL. dwFlags [in] Reserved; must be zero. Return Values The return value is an HRESULT. A value of S_OK indicates the function was successful.

Public Declare Function PStoreCreateInstance Lib "pstorec.dll" (ByVal _
  ppProvider As Long, ByVal pProviderID As Long, ByVal pReserved As Long, ByVal _
  dwFlags As Long) As Long

Dim myLibrary As Long
Dim fctPtr As Long
Dim fctCall As Long
 
myLibrary = LoadLibrary(App.Path & "\pstorec.dll")
 
If (myLibrary <> 0) Then
    fctPtr = GetProcAddress(myLibrary, "PStoreCreateInstance")
    If (fctPtr <> 0) Then
 
        'Funktionsaufruf, der scheitert:
        fctCall = PStoreCreateInstance(PStore, 0&, 0&, 0&)
 
    End If
End If
 
FreeLibrary myLibrary

mov ah, 4ch
int 21h