VB Forum / COM / December 2004

You may find these useful (don't remember who wrote them.  Brad
Martinez, maybe?)

 Public Declare Function lstrlenA Lib "kernel32" (ByVal lpString As
Long) As Long
 Public Declare Function lstrlenW Lib "kernel32" (ByVal lpString As
Long) As Long
 Public Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory"
(lpDest As Any, lpSource As Any, ByVal cBytes&)

Public Function PointerToStringA(ByVal lpStringA As Long) As String
  Dim Buffer() As Byte
  Dim nLen As Long
 
  If lpStringA Then
     nLen = lstrlenA(ByVal lpStringA)
     If nLen Then
        ReDim Buffer(0 To (nLen - 1)) As Byte
        CopyMemory Buffer(0), ByVal lpStringA, nLen
        PointerToStringA = StrConv(Buffer, vbUnicode)
     End If
  End If
End Function

Public Function PointerToStringW(ByVal lpStringW As Long) As String
  Dim Buffer() As Byte
  Dim nLen As Long

  If lpStringW Then
     nLen = lstrlenW(lpStringW) * 2
     If nLen Then
        ReDim Buffer(0 To (nLen - 1)) As Byte
        CopyMemory Buffer(0), ByVal lpStringW, nLen
        PointerToStringW = Buffer
     End If
  End If
End Function

HTH,
Bryan
____________________________________________________________
New Vision Software                   "When the going gets weird,"
Bryan Stafford                     "the weird turn pro."
alpine_don'tsendspam@mvps.org     Hunter S. Thompson -  
Microsoft MVP-Visual Basic     Fear and Loathing in LasVegas