<?xml version="1.0" encoding="windows-1251"?>  
 <xsl:stylesheet version="1.0"
      xmlns:xsl="http://www.w3.org/1999/XSL/Transform">
   <xsl:output method="xml" encoding="windows-1251"/>
   <xsl:param name="indent-increment" select="'      '" />

   <xsl:template match="*">
      <xsl:param name="indent" select="'
'"/>

      <xsl:value-of select="$indent"/>
      <xsl:copy>
        <xsl:copy-of select="@*" />
        <xsl:apply-templates>
          <xsl:with-param name="indent"
               select="concat($indent, $indent-increment)"/>
        </xsl:apply-templates>
        <xsl:if test="*">
          <xsl:value-of select="$indent"/>
        </xsl:if>
      </xsl:copy>
   </xsl:template>

   <xsl:template match="comment()|processing-instruction()">
      <xsl:copy />
   </xsl:template>

   <xsl:template match="text()[normalize-space(.)='']"/>

</xsl:stylesheet>

xmlFile as DOMDocument60
xlstFile as DOMDocument60
'тут генерация xml
'------
'------

'Открытие xsl-файла
xlstFile.Load "C:\schema.xsl"

'Трансформируем 
xmlFile.transformNodeToObject xlstFile.documentElement, resultXml

'Результат сохраняем.
resultXml.Save FileName