Imports System

​

Public Module Module1

​

    Public Sub Main()

        Console.WriteLine("Hello World")

        Dim NewDateTime As Date = New Date(2017, 5, 6, 23, 59, 59)

        Console.WriteLine(NewDateTime)

        NewDateTime = NewDateTime.AddSeconds(1)

        Console.WriteLine(NewDateTime)

    End Sub

End Module

​