Private Sub ButtonLoad_Click()
Dim stXLversion As String

stXLversion = Me.Combo1.Text

If Locate_XLAs_XLLs_Take_One(stXLversion) = False Then
    MsgBox “The selected version is not available on the computer.”, vbInformation
    Exit Sub
Else
   ‘Do other stuff
End If
End Sub

‘A reference to the Registration Manipulation Classes must be set.
‘A reference to the Microsoft Scripting Runtime must be set.

Function Locate_XLAs_XLLs_Take_One(ByVal stVersion As String) As Boolean
‘Notable: The string variable stVersion refers to “9”, “10”, “11” etc.
Dim stSubRoot As String, stCLSID As String, stExcel As String
Dim stMainPath As String, stLibrary As String, stAnalysis As String
Dim stFoldersArr(0 To 3) As String
Dim stSolver As String, stXLStart As String
Dim objRootKey As RegKey, objStartKey As RegKey
Dim fsoObj As Scripting.FileSystemObject
Dim fsoFolder As Scripting.Folder
Dim fsoFile As Scripting.File
Dim iCounter As Integer

On Error GoTo Error_Handling

‘Instantiate the FileSystemObject.
Set fsoObj = New FileSystemObject

‘Define the subkey.
stSubRoot = “Excel.Application.” & stVersion & “CLSID”

‘Define the rootkey.
Set objRootKey = RegKeyFromHKey(HKEY_CLASSES_ROOT)

‘Parse the subkey.
Set objStartKey = objRootKey.ParseKeyName(stSubRoot)

‘Retrieve the CLSID for the wanted Excel version.
stCLSID = objStartKey.Value

‘Redefine the subkey.
stSubRoot = “CLSID” & stCLSID & “LocalServer32”

‘Parse the subkey
Set objStartKey = objRootKey.ParseKeyName(stSubRoot)

‘Clean up the obtained value.
stExcel = Replace$(objStartKey.Value, “/automation”, “”)

‘Extract the main path in which Excel.exe is located in.
stMainPath = Mid$(stExcel, 1, InStrRev(stExcel, “”, , vbBinaryCompare))

stLibrary = stMainPath & “Library”
stAnalysis = stLibrary & “Analysis”
stSolver = stLibrary & “SOLVER”
stXLStart = stMainPath & “XLSTART”

‘Populate the array with the pathways to the main folders.
stFoldersArr(0) = stLibrary
stFoldersArr(1) = stAnalysis
stFoldersArr(2) = stSolver
stFoldersArr(3) = stXLStart

‘Iterate through the collection of folders and print
‘name and pathway for the located XLAs/XLLs in the immediate window.
For iCounter = 0 To 3
    If fsoObj.FolderExists(stFoldersArr(iCounter)) Then
        Set fsoFolder = fsoObj.GetFolder(stFoldersArr(iCounter))
        For Each fsoFile In fsoFolder.Files
            If LCase$(fsoFile.Name) Like “*xla” Or LCase$(fsoFile.Name) Like “*.xll” Then
                Debug.Print fsoFile.Name & “;” & fsoFile.Path
            End If
        Next fsoFile
    End If
Next iCounter

Locate_XLAs_XLLs_Take_One = True

‘Release objects from memory.
ExitHere:
Set fsoFile = Nothing
Set fsoFolder = Nothing
Set fsoObj = Nothing
Set objStartKey = Nothing
Set objRootKey = Nothing
Exit Function

Error_Handling:
    ‘Error 35006 indicates that the choosen version is not available.
   If Err.Number = 35006 Then Locate_XLAs_XLLs_Take_One = False
    Resume ExitHere
End Function

‘This API call is necessary to get the present username.
Declare Function GetUserName Lib “advapi32.dll” Alias “GetUserNameA” _
                                    (ByVal lpBuffer As String, nSize As Long) As Long
               
‘….
Dim Buffer As String * 100
Dim BuffLen As Long

BuffLen = 100
GetUserName Buffer, BuffLen
stUserName = Left(Buffer, BuffLen – 1)

stUserFolder = “C:Documents and Settings” & stUserName & _
                          “Application DataMicrosoftAddIns”

If fsoObj.FolderExists(stUserFolder) Then
    Set fsoFolder = fsoObj.GetFolder(stUserFolder)
    For Each fsoFile In fsoFolder.Files
       If LCase$(fsoFile.Name) Like “*xla” Or _
          LCase$(fsoFile.Name) Like “*.xll” Then
           Debug.Print fsoFile.Name & “;” & fsoFile.Path
        End If
    Next
End If

xlApp.COMAddIns(“ProgID”).Connect = True

Option Explicit
Const stSubKey As String = “SoftwareMicrosoftVBAVBE6.0Addins”

Sub Write_To_Registry()
Dim objRootKey As RegKey
Dim objStartKey As RegKey
Dim objCOMKey As RegKey
Dim objCOM As RegValue

Set objRootKey = RegKeyFromHKey(HKEY_CURRENT_USER)
Set objStartKey = objRootKey.ParseKeyName(stSubKey)
Set objCOMKey = objStartKey.ParseKeyName(“IndenterVBA.Connect”)
Set objCOM = objCOMKey.Values(“LoadBehavior”)

‘Change the load behavior to connected | bootload.
objCOM.Value = 3

Set objCOMKey = Nothing
Set objStartKey = Nothing
Set objRootKey = Nothing

End Sub