Option Explicit
 
Private Declare Sub CopyMemory Lib "kernel32" Alias _
  "RtlMoveMemory" ( _
    pDst As Any, _
    pSrc As Any, _
    ByVal ByteLen As Long)
 
Private Declare Function IsBadReadPtr Lib "kernel32" ( _
    ByVal ptr As Long, _
    ByVal ByteLen As Long) As Long
 
Public Function Ansi2Uni(ByVal ptr As Long) As String
    Dim intStrLen   As Integer
    Dim btData()    As Byte
    Dim bt          As Byte
 
    Do
        If IsBadReadPtr(ByVal ptr + intStrLen, 1) = 0 Then
            CopyMemory bt, ByVal ptr + intStrLen, 1
        Else
            Exit Do
        End If
 
        If bt = 0 Then
            Exit Do
        Else
            ReDim Preserve btData(intStrLen) As Byte
            btData(intStrLen) = bt
            intStrLen = intStrLen + 1
        End If
    Loop
 
    Ansi2Uni = StrConv(btData, vbUnicode)
End Function

http://rm_code.dl.am