Binaryworld - StringFromAddr - Read a string at a given address ... [ VB -> Api ]

Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (dest As _
  Any, source As Any, ByVal bytes As Long)
Private Declare Function lstrlenA Lib "kernel32" (ByVal lpString As Long) As _
  Long
Private Declare Function lstrlenW Lib "kernel32" (ByVal lpString As Long) As _
  Long

' retrieve a string at a given address
' if LENGTH < 0 the string is considered to be null-terminated
' and the function determines its length

Function StringFromAddr(ByVal address As Long, ByVal length As Long, _
  Optional ByVal isUnicode As Boolean) As String
  ' determine the length, if necessary
  If length < 0 Then
    If isUnicode Then
      length = lstrlenW(address)
    Else
      length = lstrlenA(address)
    End If
  End If
  ' copy the characters
  StringFromAddr = Space$(length)
  If isUnicode Then
    CopyMemory ByVal StrPtr(StringFromAddr), ByVal address, length * 2
  Else
    CopyMemory ByVal StringFromAddr, ByVal address, length
  End If
End Function