WScript.Shell

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


   MsgBox oShell.RegRead(Path) 
End Sub 

VB Script

extension - .vbs

CreateObject("WScript.Shell").Run "C:\script.vbs" 

WScript.Echo "Display this as a messagebox"