Option Explicit

Private Declare Sub GetSystemInfo Lib "kernel32" ( _
      lpSystemInfo As Systeminfo)

Private Type Systeminfo
  dwOEMID As Long
  dwPagesize As Long
  lpMinimumApplicationAddress As Long
  lpMaximumApplicationAddress As Long
  dwActiveProcessorMask As Long
  dwNumberOfProcessors As Long
  dwProcessorType As Long
  dwAllocationGranularity As Long
  dwReserved As Long
End Type

Public Sub GetNumberOfProcessors()
  Dim sysInfo As Systeminfo

  GetSystemInfo sysInfo
  MsgBox "Anzahl der Prozessoren: " & sysInfo.dwNumberOfProcessors
End Sub