New DateTime
public class Test public Shared Sub Main Dim D As New DateTime(10000333333333333) Console.WriteLine("10000 ticks is " + D.Date()) End Sub End class