One way...
MessageBox.Show(My.Computer.Clock.LocalTime.ToShortDateString)

Another way...
MessageBox.Show(System.DateTime.Today.ToShortDateString)