Imports System.Xml
Private Function TransformXMLToHTML(ByVal inputXml As String, ByVal inputXslt As String) As String
Dim results As StringWriter = Nothing
Dim transform As New XslCompiledTransform()
Dim settings As New XmlReaderSettings()
settings.ProhibitDtd = False
settings.ValidationType = ValidationType.None
Using reader As XmlReader = XmlReader.Create(New StringReader(inputXslt), settings)
Try
transform.Load(reader)
results = New StringWriter()
Using reader2 As XmlReader = XmlReader.Create(New StringReader(inputXml))
transform.Transform(reader2, Nothing, results)
End Using
Catch ex As Exception
Return "Unable to transform : " & ex.Message
End Try
End Using
If results IsNot Nothing Then
Return results.ToString()
Else
Return "Unable to transform"
End If
End Function