Imports System
Public Module Module1
Public Sub Main()
Dim time = DateTime.Now
Dim convertedTime = time.ToString("yyyyMMddHHmmss")
Console.WriteLine(convertedTime)
End Sub
End Module