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