Dim OpSys
Dim WSH As Object
Dim RegStr As String
Set WSH = CreateObject("Wscript.Shell")
OpSys = Split(Application.OperatingSystem, " ")
If LCase(OpSys(0)) = "windows" Then
Select Case Int(OpSys(UBound(OpSys)))
Case 5 To 9: RegStr = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\Version Vector\IE"
Case Is < 5: RegStr = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\Version\IE"
End Select
ieVer = CInt(WSH.RegRead(RegStr))
End If