Here is the simple code
Declarations
Imports System.Xml
Imports System.Xml.Xsl
Function Code
Dim xslt As New XslTransform()
Try
xslt.Load("transform.xslt")
xslt.Transform("source.xml", "result.xml")
Catch ex As Xsl.XsltException
Console.WriteLine("Transform Failed")
Catch ex As Exception
Console.WriteLine(ex.Message & " " & ex.StackTrace)
End Try