Private Const xsltStyleSheet As String = "<xsl:stylesheet version='1.0' xmlns:xsl='http://www.w3.org/1999/XSL/Transform'" & vbCrLf _
        & "    xmlns:msxsl='urn:schemas-microsoft-com:xslt'" & vbCrLf _
        & "    xmlns:user='http://www.atmarkit.co.jp/sample/xslt/script'>" & vbCrLf _
        & "  <msxsl:script language='VisualBasic' implements-prefix='user'>" & vbCrLf _
        & "     <![CDATA[" & vbCrLf _
        & "    Public Function ToBase64(ByVal s As String) As String" & vbCrLf _
        & "        If s.Length = 0 Then Return " & Chr(34) & Chr(34) & vbCrLf _
        & "        Dim ar() As Byte = System.Text.Encoding.UTF8.GetBytes(s)" & vbCrLf _
        & "        Return Convert.ToBase64String(ar)" & vbCrLf _
        & "    End Function" & vbCrLf _
        & "      ]]>" & vbCrLf _
        & "  </msxsl:script>" & vbCrLf _
        & "  <xsl:template match='name'>" & vbCrLf _
        & "    <name encode='base64'>" & vbCrLf _
        & "          <xsl:value-of select='user:ToBase64(.)'/>" & vbCrLf _
        & "    </name>" & vbCrLf _
        & "  </xsl:template>" & vbCrLf _
        & "</xsl:stylesheet>" & vbCrLf

    Private Const xmlDocument As String = "<name>間宮林蔵</name>"

    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