[Help]Read address

Private Declare Function ReadProcessMemory Lib "kernel32" (ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByRef lpBuffer As Single, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As Integer

    Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click

        Dim Health As Integer = &H1A4B159
        Dim displayHealth As Integer
        Dim proc As Process = Process.GetCurrentProcess
        For Each proc In Process.GetProcesses
            If proc.MainWindowTitle = "BlackOps" Then
                ReadProcessMemory(proc.Handle.ToInt32(), Health, displayHealth, 4, 0)

            End If
        Next
        Label14.Text = (displayHealth)

    End Sub

If proc.MainWindowTitle = "BlackOps" Then

If proc.MainWindowTitle = "Call of Duty©: BlackOps" Then

    Private Declare Function OpenProcess Lib "kernel32.dll" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
    Private Declare Function ReadProcessMemory Lib "kernel32" (ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByRef lpBuffer As Single, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As Integer
    Dim RBuff1 As Long

    Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX16.Click
        Dim BlackOpsLookUp As Process() = Process.GetProcessesByName("BlackOps")

        Dim processHandle As IntPtr = OpenProcess(&H1F0FFF, 0, BlackOpsLookUp(0).Id)

        ReadProcessMemory(processHandle, &H1A4B15C, RBuff1, 4, Nothing)
        Label14.Text = (RBuff1)
    End Sub

        Dim processHandle As IntPtr = OpenProcess(&H10, 0, BlackOpsLookUp(0).Id)