Option Explicit

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
    (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Declare Function GetWindowThreadProcessId Lib "user32" _
    (ByVal hwnd As Long, lpdwProcessId As Long) As Long
 
Public Declare Function CreateToolhelp32Snapshot Lib "kernel32" _
(ByVal lFlags As Long, ByVal lProcessID As Long) As Long
    
Private Declare Function Module32Next Lib "kernel32" _
   (ByVal hSnapShot As Long, lpMe32 As MODULEENTRY32) As Long

Private Declare Function CloseHandle Lib "kernel32" _
    (ByVal hObject As Long) As Long


' Constantes APIs
Private Const PROCESS_ALL_ACCESS = &H1F0FFF
Private Const TH32CS_SNAPMODULE = &H8
Private Const MAX_PATH = 260

Private Type MODULEENTRY32
   dwSize               As Long
   th32ModuleID         As Long
   th32ProcessID        As Long
   GlblcntUsage         As Long
   ProccntUsage         As Long
   modBaseAddr          As Long
   modBaseSize          As Long
   hModule              As Long
   szModule             As String * 256
   szExePath            As String * MAX_PATH
End Type

Sub main()

Dim hWin            As Long
Dim pID             As Long
Dim hwSnap          As Long
Dim PTRMOD          As MODULEENTRY32
Dim retVal          As Long

hWin = FindWindow("Notepad", vbNullString)
    If hWin Then
        GetWindowThreadProcessId hWin, pID
        hwSnap = CreateToolhelp32Snapshot(TH32CS_SNAPMODULE, pID)
        If hwSnap Then
            PTRMOD.dwSize = Len(PTRMOD)
            retVal = Module32Next(hwSnap, PTRMOD)
            If retVal Then
                '... readprocessmemory,writeprocessmemory, etc
                CloseHandle (hwSnap)
            End If
        CloseHandle (hwSnap)
        End If
    Else
        Debug.Print "Notepad no esta en ejecucion"
    End If
End Sub