Imports System Imports System.Xml Imports System.Xml.XPath Public Class MainClass Public Shared Sub Main() Dim root As XElement Dim dt As DateTime = New DateTime(2010, 10, 6, 12, 30, 0) root = <Root><%= dt %></Root> Console.WriteLine(root) End Sub End Class