Get Internet Explorer Version

Const HKEY_LOCAL_MACHINE = &H80000002


strComputer = "."
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _    strComputer & "\root\default:StdRegProv") 
strKeyPath = "SOFTWARE\Microsoft\Internet Explorer"


strValueName = "Version"oReg.GetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValuemsgbox  "Installed IE Version: " & strValue
msgbox "Major IE Version: " & Left(strValue,1)