Dim xslt As New MSXML2.XSLTemplate30
Dim xslDoc As New MSXML2.FreeThreadedDOMDocument30
Dim xmlDoc As New MSXML2.DOMDocument30
Dim xslProc As IXSLProcessor
Dim objDOMDocument As New DOMDocument
Dim objDOMDocument1 As New DOMDocument
Dim objXMLStyle As New DOMDocument
Dim strXMLFromXSL As String
xslDoc.async = False
xslDoc.Load "D:\sample.xsl"
If (xslDoc.parseError.errorCode <> 0) Then
   Dim myErr
   Set myErr = xslDoc.parseError
   MsgBox ("You have error " & myErr.reason)
Else
   Set xslt.stylesheet = xslDoc

Set xslProc = xslt.createProcessor()
     xslProc.input = xmlDoc
      xslProc.addParameter "param1", "Hello"
      xslProc.Transform
      WebBrowser1.Navigate "about:blank"
      WebBrowser1.Document.Open

Call objXMLStyle.Load("D:\sample.xsl")
    strXMLFromXSL = objDOMDocument.transformNode(objXMLStyle.documentElement)
    Do Until Form1.WebBrowser1.readyState = READYSTATE_COMPLETE
        DoEvents
    Loop
    
    WebBrowser1.Document.Body.innerHTML = strXMLFromXSL
      MsgBox xslProc.output
End If