Yes
I Tried:

DECLARE Integer HvsCodeOpen IN HvsCodeDll.dll string dbDirectory
DECLARE INTEGER vbHvsCodeTeze IN HvsCodeDll STRING @vHvsCode, STRING @vHvsAdr
test=HvsCodeOpen("D:\DllTest\") &&Opens the Database Access MDB

vHvsAdr="DEU"+chr(0)+"30559"+chr(0)+"Hannover" + chr(0)+ "Strasse 1"+chr(0)
vHvsCode=REPLICATE(CHR(0),512)

retval=vbHvsCodeTeze(@vHvsCode,@vHvsAdr)


But still get only get a message "declare dll caused an exception"

can you point out where my mistake is ?