Programatically get installed Version of Google Chrome VBA

[pingme89]

I have noticed that you can get the installed version of Google Chrome from the registry at:
Computer\HKEY_CURRENT_USER\Software\Google\Chrome\BLBeacon
The key is labeled "version".

How can I write a VBA script to get the value in that registry key?
I am using 64bit OS. I am using Microsoft Office Professional Plus 2016.

Thanks in advance.

 

[rlv01]

Works for me under 32bit Office, 64bit Win10

Sub ChromeVersion()
    MsgBox CreateObject("WScript.Shell").RegRead("HKEY_CURRENT_USER\Software\Google\Chrome\BLBeacon\version"), vbInformation, "Chrome Version"
End Sub

 

[pingme89]

That worked like a charm. Much appreciated.

 

[pingme89]

But when I try to place the result into a varible, the VBA code is RED and the syntax isn't right.
Version = CreateObject("WScript.Shell").RegRead("HKEY_CURRENT_USER\Software\Google\Chrome\BLBeacon\version"), vbInformation, "Chrome Version"

 

[rlv01]

That's because you are trying to assign the entire Msgbox definition to a variable. Do this instead:

 Version = CreateObject("WScript.Shell").RegRead("HKEY_CURRENT_USER\Software\Google\Chrome\BLBeacon\version")

BTW, when you post code you should use the code tag wrapper (select your code then press "<vba/>" in the menu above). It makes it much easier for everyone else to read it.

 

[pingme89]

Thank you. That worked. I didn't know about the "<vba>" format. I will use it in the future. Thank you for the advice and knowledge.