Module Example Public Sub Main() Dim datNow As Date = CDate("10/26/2010 1:32:00 PM") Console.WriteLine("Converting {0}, Kind {1}", datNow, datNow.Kind) Console.WriteLine(" ConvertTimeToUtc: {0}, Kind {1}", TimeZoneInfo.ConvertTimeToUtc(datNow), TimeZoneInfo.ConvertTimeToUtc(datNow).Kind) End Sub End Module