Dim hwnd As Long
    Dim pid As Long
    Dim pHandle As Long
    Dim hProcess As Long
 
    hwnd = FindWindow(vbNullString, "Age of Empires")
    If (hwnd = 0) Then
        MsgBox "Window not found!"
    Exit Sub
    End If
    GetWindowThreadProcessId hwnd, pid
    pHandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid)
    If (pHandle = 0) Then
        MsgBox "Couldn't get a process handle!"
        Exit Sub
    End If
 
WriteProcessMemory pHandle, &HD65E4A, txtbuffer.Text, txtSize.Text, _
  txtnrofbytes.Text
    CloseHandle hProcess