Dim WSHShell
Dim Value

Set WSHShell = CreateObject("WScript.Shell")
    
Value = WSHShell.RegRead("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\App Management\ARPCache\NomDeVotreProgramme\SlowInfoCache")

  if Value(24) < 3 then
     msgbox "Rarement"
  elseif Value(24) < 10 then
     msgbox "Occasionnellement"
  elseif Value(24) >=10 then
     msgbox "Fréquemment"
  end if

Set WSHShell = nothing