Declare Function ReadProcessMemory Lib "kernel32" Alias "ReadProcessMemory" (ByVal hProcess As Long, lpBaseAddress As Any, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
    
Dim a As Long
    a = 'process id to open
    Dim b As Long
    b = OpenProcess((SPECIFIC_RIGHTS_ALL And STANDARD_RIGHTS_ALL), False, a)
    'opens a process handle for memory access
    ---
    Dim a As Long
    Dim b As Long
    Dim c As Long
    Dim d As Boolean
    Dim e As Long
    Dim f As Long
    d = ReadProcessMemory(a, ByVal b, ByVal VarPtr(c), 4, e)