VBA Formato de data completa

Format(DateTime.Now, "yyyy-MM-dd hh:mm:ss")
Alert Antelope