Oops just had to Imports System.Runtime.InteropServices

EDIT:

Using
Code:
Imports System.Runtime.InteropServices

Public Class Form1

    Declare Function ReadProcessMemory Lib "kernel32" Alias "ReadProcessMemory" (ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByRef lpBuffer As Integer, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As IntPtr
    Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As IntPtr
    Private Sub btnCurrentXP_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCurrentXP.Click
        Dim var As Integer
        Dim windowhandle As IntPtr
        Dim buffer As IntPtr = marshal.AllocHGlobal(marshal.SizeOf(GetType(Integer)))
        Dim bytesWritten As Integer
        windowhandle = FindWindow(vbNullString, "The 4th Coming")
        MsgBox(windowhandle)
        var = ReadProcessMemory(windowhandle, &H80B910, buffer, 8, bytesWritten)

        MsgBox(var)
    End Sub
End Class
Returns 0 too