Private Declare Sub CopyMemory Lib "kernel32.dll" Alias "RtlMoveMemory" _
           (ByVal Destination As Long, _
            ByVal Source As Long, _
            ByVal Length As Long)
 
Private Declare Function lstrlenA Lib "kernel32.dll" _
    (ByVal lpString As Long) As Long
 
Public Function MarshalCString(ByVal adr As Long) As String
 
    If adr > 0 Then
        'Länge des Strings ermitteln.
        Dim strlen As Long
        strlen = lstrlenA(adr) 'strlen: Stringlänge ohne \0
 
        If strlen > 0 Then
            Dim bytes() As Byte
            ReDim bytes(strlen - 1)
            CopyMemory VarPtr(bytes(0)), adr, strlen
 
            'ANSI/Default Codepage in Unicode umwandeln
            MarshalCString = StrConv(bytes, vbUnicode)
        Else 'Empty String
            MarshalCString = ""
        End If
    Else
        ' Eigentlich Null-String, aber für VB auch leeren String verwenden.
        MarshalCString = ""
    End If
 
End Function

Dim adr As Long
adr = lut_name( ... )
 
Dim myString As String
myString = MarshalCString(adr)