Const TH32CS_SNAPHEAPLIST As Long =  1            ' включить список куч в снапшот
Const TH32CS_SNAPPROCESS As Long =  2             ' включить списко процессов
Const TH32CS_SNAPTHREAD  As Long =  4             ' включить список тредов
Const TH32CS_SNAPMODULE  As Long =  8             ' включить список модулей
Const TH32CS_SNAPALL  As Long =  1  Or  2  Or  4  Or  8  ' в снапшот будет включено все
Const TH32CS_INHERIT As Long = &H80000000       ' снапшот может наследоваться

Type PROCESSENTRY32
    size            As Long    ' размер структур - нужно установить до вызова
    usage           As Long    ' ссылок на процесс - живет, пока не равно нулю
    processid       As Long    ' PID
    defaultHeapID   As Long    ' ID кучи процесса по умолчанию
    moduleID        As Long    ' MID :))
    threads         As Long    ' количество запущенных процессом тредов
    parentProcessID As Long    ' PID процесса, создавшего наш процесс
    priClassBase    As Long    ' базовый приоритет тредов
    flags           As Long    ' зарезервировано
    exeFile         As String *  255  ' лучшее напоследок - полный путь к процессам!
End Type
  
Declare Function CreateToolhelp32Snapshot Lib "Kernel32.dll" (ByVal dwFlag As Long, ByVal processid As Long) As Long
Declare Function CloseHandle Lib "Kernel32.dll" (ByVal Handle As Long) As Boolean
Declare Function Process32First Lib "Kernel32.dll" (ByVal hSnapShot As Long, ByRef Procentry32 As PROCESSENTRY32) As Boolean
Declare Function Process32Next Lib "Kernel32.dll" (ByVal hSnapShot As Long, ByRef Procentry32 As PROCESSENTRY32) As Boolean


Function FindProcess(strProcess As String) As Boolean
   
   Dim flag As Boolean, hSnap As Long
   Dim Procentry As PROCESSENTRY32
   
   hSnap = CreateToolhelp32Snapshot( 2 ,  0 )
   flag = False
   Procentry.size =  291 
   
   If Process32First(hSnap, Procentry) Then
      If InStr(UCase(Procentry.exeFile), UCase(strProcess)) <>  0  Then flag = True
      While (Not flag) And (Process32Next(hSnap, Procentry))
        If InStr(UCase(Procentry.exeFile), UCase(strProcess)) <>  0  Then
            flag = True
        End If
      Wend
   End If
   CloseHandle hSnap
   FindProcess = flag
End Function

Private Sub IsProcess()
  If FindProcess("WINWORD.EXE") Then MsgBox "Найден" Else MsgBox "Не найден"
End Sub