DLL_EXPORT const char *kto_check_retval2txt(int retval)
{
   if(!retval_enc)kto_check_encoding(DEFAULT_ENCODING);
   return (*retval_enc)(retval);
}
DLL_EXPORT const char *lut_name(char *b,int zweigstelle,int *retval)
{
   int idx;
 
   if(!name)INVALID_C(LUT2_NAME_NOT_INITIALIZED);
   if((idx=lut_index(b))<0)INVALID_C(idx);
   CHECK_OFFSET_S;
   return name[startidx[idx]+zweigstelle];
}

Public Declare Function kto_check_retval Lib "konto_check.dll" Alias _
  "kto_check_retval2txt@4" ( _
    ByVal retval As Integer _
    ) As String
Public Declare Function lut_name Lib "konto_check.dll" Alias "lut_name@12" ( _
    ByVal blz As String, _
    ByVal zweigstelle As Integer, _
    ByVal ret As Integer _
    ) As String
 
Dim ret As Integer
Dim retval As Integer
 
ret = LUT_Name("76351040", 0, retval)
 
Debug.Print "LUT-Name: " & ret & " Retval: " & retval

Debug.Print "Fehler: " & kto_check_retval(-1)