Hello everybody,

I'm sorry if this question looks like ..uhmm!! idiot?.. but 'I'm trying
to display some result in my sheet using MSXML and I don't go further
of the Msgbox use.

see my code
VBA:

Dim xslt As New MSXML2.XSLTemplate40
Dim xslDoc As New MSXML2.FreeThreadedDOMDocument40
Dim xmlDoc As New MSXML2.DOMDocument40
Dim xslProc As IXSLProcessor
Dim paramxml As MSXML2.DOMDocument40
xslDoc.async = False
xslDoc.Load "c:\compara.xsl"
If (xslDoc.parseError.errorCode < 0)
Then
Dim myErr Set myErr = xslDoc.parseError MsgBox ("You have error " &
myErr.reason)
Else
Set xslt.stylesheet = xslDoc
xmlDoc.async = False
xmlDoc.Load "C:\Instructional_program.xml"
If (xmlDoc.parseError.errorCode < 0)
Then
Set myErr = xmlDoc.parseError MsgBox ("You have error " & myErr.reason)
Else
Set xslProc = xslt.createProcessor()
xslProc.input = xmlDoc
xslProc.transform
MsgBox xslProc.output <-- How to produce a output right to a sheet??

End if
End if

Well, it shows me a Msg in HTML format, but I want to display it in
sheet
or save it in a format *.xls .

What should I do?


Thanx.