Dim TmpTime as DateTime = DateTime.Now
MessageBox.Show(TmpTime.ToString("yyyy-MM-dd hh:mm tt"))
produces
---------------------------
---------------------------
2005-09-08 08:14 AM
---------------------------
OK
---------------------------
Look
here for more formatting patterns