Private Const xsltStyleSheet As String = "" & vbCrLf _ & " " & vbCrLf _ & " " & vbCrLf _ & " " & vbCrLf _ & " " & vbCrLf _ & " " & vbCrLf _ & " " & vbCrLf _ & " " & vbCrLf _ & " " & vbCrLf _ & "" & vbCrLf Private Const xmlDocument As String = "ŠÔ‹{—Ñ‘ " Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim xslt As XslTransform = New XslTransform xslt.Load(New XmlTextReader(New StringReader(xsltStyleSheet)), Nothing, Me.GetType().Assembly.Evidence) Dim document As XmlDocument = New XmlDocument document.LoadXml(xmlDocument) Dim swriter As StringWriter = New StringWriter Dim writer As XmlTextWriter = New XmlTextWriter(swriter) xslt.Transform(document, Nothing, writer, Nothing) System.Diagnostics.Trace.Write(swriter.ToString()) End Sub