RosettaCodeData/Task/Show-the-epoch/Visual-Basic/show-the-epoch.vb

Sub Main()
    Debug.Print Format(0, "dd mmm yyyy hh:mm")
End Sub