Savoir si extensions masquées ou non

Private Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" _
        (ByVal Hkey As Long, _
         ByVal lpSubKey As String, _
         phkResult As Long) As Long
Private Declare Function RegCloseKey Lib "advapi32.dll" _
        (ByVal Hkey As Long) As Long
Private Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" _
        (ByVal Hkey As Long, _
         ByVal lpValueName As String, _
         ByVal lpReserved As Long, _
         lpType As Long, _
         lpData As Any, _
         lpcbData As Long) As Long
Const HKEY_CURRENT_USER = &H80000001

Sub State_HideFileExt()
Dim Result&
Dim tempo&
Dim SizeBuffer&
Dim Buffer$
tempo& = RegOpenKey(HKEY_CURRENT_USER, _
    "SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced", Result&)
tempo& = RegQueryValueEx(Result&, "HideFileExt", 0, 0, ByVal 0, SizeBuffer&)
Buffer$ = Space(SizeBuffer&)
tempo& = RegQueryValueEx(Result&, "HideFileExt", 0, 0, ByVal Buffer$, SizeBuffer&)
tempo& = RegCloseKey(Result&)
Select Case AscW(Buffer$)
  Case 0
    MsgBox prompt:="L'option est décochée.", _
      Title:="Masquer les extensions des fichiers dont le type est connu"
  Case 1
    MsgBox prompt:="L'option est cochée.", _
      Title:="Masquer les extensions des fichiers dont le type est connu"
End Select
End Sub