WScript.Shell

Public Sub GetRegistry_Values() 
Dim WshShell As Object 
Set WshShell = CreateObject("WScript.Shell") 
    
Dim Path As String 
    Path = "HKEY_CURRENT_USER\software\microsoft\office\16.0\excel\options\open1" 

    MsgBox WshShell.RegRead(Path) 
End Sub