Imports System.IO Module Module1 Sub Main() Dim Dt As DateTime = Now() Dim NewDT As DateTime = Now() Console.WriteLine("Current date and time: " & Dt) NewDT = NewDT.AddHours(5) Console.WriteLine("Five hours from now is: " & NewDT) End Sub End Module