Imports System

Public Module Module1

    Public Sub Main()

        Dim time = DateTime.Now

        Dim convertedTime = time.ToString("yyyyMMddHHmmss")

        Console.WriteLine(convertedTime)

    End Sub

End Module