Ola, acabei achando a reposta, se alguém quiser.
Dim oRegistry
Dim oFSO
Dim sKey
Dim sAppExe
Dim sValue
Dim sAppVersion
Const HKEY_LOCAL_MACHINE = &H80000002
Set oRegistry = GetObject("winmgmts:{impersonationLevel=impersonate}//./root/default:StdRegProv")
Set oFSO = CreateObject("Scripting.FileSystemObject")
sKey = "Software\Microsoft\Windows\CurrentVersion\App Paths"
sAppExe = "excel.exe"
oRegistry.GetStringValue HKEY_LOCAL_MACHINE, sKey & "\" & sAppExe, "", sValue
OfficeVersion = oFSO.GetFileVersion(sValue)
sOfficeVersion =Split(OfficeVersion,".", -1, 1)
Select Case sOfficeVersion(0)
Case "16"
vVsOfficeAno = "2016"
Case "15"
vVsOfficeAno = "2013"
Case "14"
vVsOfficeAno = "2010"
Case "12"
vVsOfficeAno = "2007"
Case "11"
vVsOfficeAno = "2003"
End Select
MsgBox "A versao do office: " & OfficeVersion
MsgBox "MicroSoft Office : " & vVsOfficeAno
Set oFSO = Nothing
Set oRegistry = Nothing
