hashahshash
valeu ai galera eu achei oque estava faltano
Public Function Memory_ReadString(ByVal Address As Long, ByVal CharCount As Int32) As String
Dim ret As Byte() = Nothing
Dim vBuffer As Long
Dim processHandle As IntPtr = OpenProcess(PROCESS_VM_READ, 0, Tibia_Hwnd)
Dim tStr(CharCount) As Char
Dim retStr As String = ""
For i As Int32 = 0 To CharCount
ReadProcessMemory(processHandle, Address + i, vBuffer, 1, 0)
ret = BitConverter.GetBytes(vBuffer)
tStr(i) = System.Text.Encoding.ASCII.GetString(ret) : retStr += tStr(i)
Next
Return retStr
CloseHandle(processHandle)
End Function
Muito Obrigado a Galera que me ajudo