Dim IEVer

IEVer=WshShell.RegRead("HKLM\SOFTWARE\Microsoft\Internet Explorer\Version")

select case UCase(left(IEVer, 1))
        case "5"
                MSGBOX ("Internet Explorer v5 Installed")
        case "6"
                MSGBOX ("Internet Explorer v6 Installed")

        case "7"
                MSGBOX ("Internet Explorer v7 Installed")

        case "8"
                MSGBOX ("Internet Explorer v8 Installed")

        case else
                MSGBOX ("Unknown Internet Explorer Version Installed.
end select