Public Declare Function lut_name Lib "konto_check.dll" Alias "lut_name@12" ( _
    ByVal blz As String, _
    ByVal zweigstelle As Long, _
    ByRef ret As Long _
    ) As Long
 
'dazu
 
Private Declare Sub CopyMemory Lib "kernel32.dll" Alias "RtlMoveMemory" _
           (ByRef Destination As Any, _
            ByRef Source As Any, _
            ByVal Length As Long)

 
Dim strar(256) As Byte
Dim sRet As String
Dim adr As Long
 
adr = lut_name ( ... )
 
If adr > 0 Then
    CopyMemory ByVal VarPtr(strar(0)), ByVal adr, 256
    'Byte-Code in Unicode umwandeln
    sRet = StrConv(strar(), vbUnicode)
End IF