Dim xslt, xslDoc, xmlDoc, xmlOut, xslProc 
dim s 
Set xslt = CreateObject("MSXML2.XSLTemplate")
Set xslDoc = CreateObject("MSXML2.FreeThreadedDOMDocument")
Set xmlDoc = CreateObject("MSXML2.DOMDocument")
Set xmlOut = CreateObject("MSXML2.DOMDocument")
xslDoc.async = False
xslDoc.Load "test_rules.xsl"
If (xslDoc.parseError.errorCode <>  0 ) Then
   Dim myErr
   Set myErr = xslDoc.parseError
   MsgBox "Stylesheet error: " + myErr.reason
Else
   Set xslt.StyleSheet = xslDoc
   xmlDoc.async = False
   xmlDoc.Load "test_src.xml"
   If (xmlDoc.parseError.errorCode <>  0 ) Then
      Set myErr = xmlDoc.parseError
      MsgBox "XML document error: " + myErr.reason
   Else
      Set xslProc = xslt.createProcessor()
      xslProc.input = xmlDoc
      xslProc.output = xmlOut
      xslProc.transform
      xmlOut.save("q3.xml")
   End If
End If