Codigo para saber la version de Internet Explorer.
Option Explicit
Private Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, phkResult As Long) As Long
Private Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, lpData As Any, lpcbData As Long) As Long
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Private Const HKEY_LOCAL_MACHINE As Long = &H80000002
Private Const KEY_READ = &H20019
Public Function GetIEVersion() As String
Dim lngHandle As Long, lngcbData As Long
Dim strRet As String
If RegOpenKeyEx(HKEY_LOCAL_MACHINE, "SOFTWARE\Microsoft\Internet Explorer", 0&, KEY_READ, lngHandle) = 0 Then
lngcbData = 255
strRet = Space(lngcbData)
If RegQueryValueEx(lngHandle, "version", 0&, 1&, ByVal strRet, lngcbData) = 0 Then
GetIEVersion = Left$(strRet, lngcbData)
End If
Call RegCloseKey(lngHandle)
End If
End Function
