Option Explicit
Private Const MAX_PATH =  260 

Private Type PROCESSENTRY32
  dwSize As Long
  cntUsage As Long
  th32ProcessID  As Long
  th32DefaultHeapID As Long
  th32ModuleID As Long
  cntThreads As Long
  th32ParentProcessID As Long
  pcPriClassBase As Long
  dwFlags As Long
  szExeFile As String * MAX_PATH
End Type

Private Declare Function CreateToolhelpSnapshot Lib "kernel32" Alias "CreateToolhelp32Snapshot" (ByVal lFlags As Long, ByVal lProcessID As Long) As Long
Private Declare Function Process32First Lib "kernel32" (ByVal hSnapshot As Long, lppe As PROCESSENTRY32) As Long
Private Declare Function Process32Next Lib "kernel32" (ByVal hSnapshot As Long, lppe As PROCESSENTRY32) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long

Private Const TH32CS_SNAPPROCESS = &H2&
Private Const INVALID_HANDLE_VALUE = - 1 
Dim Exp_ProcessId As Long ' ProcessId процесса Explorer.exe

Private Sub Command1_Click()
  Dim hSnapshot As Long
  Dim tProcess As PROCESSENTRY32
  Dim rProcessFound As Long
  Dim vExeName As String
  Dim posnull As Long

  hSnapshot = CreateToolhelpSnapshot(TH32CS_SNAPPROCESS,  0 )
  If hSnapshot = INVALID_HANDLE_VALUE Then Exit Sub

  tProcess.dwSize = Len(tProcess)

  rProcessFound = Process32First(hSnapshot, tProcess)

  Do While rProcessFound
    posnull = InStr( 1 , tProcess.szExeFile, Chr( 0 ))
    If posnull >  0  Then
      if Left$(tProcess.szExeFile, posnull -  1 ) = "explorer.exe" Then Exp_ProcessId = tProcess.th32ProcessID  
    End If
    tProcess.szExeFile = ""
    rProcessFound = Process32Next(hSnapshot, tProcess)
  Loop

  Call CloseHandle(hSnapshot)
End Sub