Wilde string 2 bytes vraag (vb6)

[anoniem]

Dit is een functie om ASCII (1 byte per caracter) te lezen. Maar hoe maak ik er een wilde string van dus dat hij 2 bytes (per caracter) gaat lezen. Wie kan mij met dit probleempje helpen. stukje van de class [code:1:ead8b88152] Option Explicit Private Declare Function ReadProcessMemory Lib "kernel32" (ByVal hProcess As Long, ByVal lpBaseAddress As Any, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long Public Function ReadMemory(ByVal Address As Long, length As Integer) As String Dim sBuffer As String, bResult As Boolean sBuffer = String(length, Chr(0)) bResult = ReadProcessMemory(OpenProcID, ByVal Address, ByVal sBuffer, length, 0&) If bResult = True Then ReadMemory = sBuffer Else ReadMemory = "" End If End Function [/code:1:ead8b88152]