PASCAL Sample:

xx.pas

Function  i2cGetDeviceAddress : Byte;                                                stdcall; external 'CrdI2C32.DLL';

C Sample:

xx.h
typedef unsigned char __stdcall i2cGetDeviceAddress_type();
extern i2cGetDeviceAddress_type *i2cGetDeviceAddress;

xx.c
i2cGetDeviceAddress_type *i2cGetDeviceAddress = NULL;
....
 i2cGetDeviceAddress = (i2cGetDeviceAddress_type*)GetProcAddress(hDll,"i2cGetDeviceAddress");
  if (i2cGetDeviceAddress == NULL) {
    FreeLibrary(hDll);
    return 22; // function not found in library
  }

VB Sample:

xx.bas

 Declare Function i2cGetDeviceAddress Lib "CrdI2C32.DLL" () As Byte