vbnet Address read integer/string problems

Here is the problem

[Only registered and activated users can see links. Click Here To Register...]

It doesn't work, I can't make it work I can't find code to read memory integer, can someone give me a working example.

here is my code:

Code:

Imports System.Runtime.InteropServices
Imports System
Imports System.Text
Imports System.ComponentModel
Imports System.Windows.Forms.Application
Module ReadMemory
    <DllImport("kernel32.dll", SetLastError:=True)> Public Function ReadProcessMemory _
(ByVal hProcess As IntPtr, ByVal lpBaseAddress As IntPtr, ByRef lpBuffer As Byte,
 ByVal iSize As Integer, ByRef lpNumberOfBytesRead As Integer) As Boolean
    End Function
End Module
Public Class Form1
    Public Function ReadMemoryP(ByVal address As Integer)
        Dim prox As Process() = Process.GetProcessesByName("game")
        Return GetTextinMemory(prox(0).Handle, address, 16) & GetTextinMemory(prox(0).Handle, address + 32, 16)
    End Function
    Private Function GetTextinMemory(ByVal ProcessHandle As IntPtr, ByVal MemoryAddress As IntPtr, ByVal CharsToRead As Integer, Optional ByVal IsUnicode As Boolean = True) As String
        Dim ReturnValue As String = vbNullString
        Dim StringBuffer() As Byte
        If IsUnicode Then
            ReDim StringBuffer(CharsToRead * 2 - 1)
        Else
            ReDim StringBuffer(CharsToRead - 1)
        End If
        Try
            If ReadProcessMemory(ProcessHandle, MemoryAddress, StringBuffer(0), StringBuffer.Length, Nothing) Then
                If IsUnicode Then
                    ReturnValue = System.Text.Encoding.ASCII.GetString(StringBuffer)
                Else
                    ReturnValue = System.Text.Encoding.Default.GetString(StringBuffer)
                End If
            End If
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        Return ReturnValue
    End Function

    Private Sub cmdFirstScan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        MsgBox(ReadMemoryP(& 87541CDC))

    End Sub
End Class