Subroutine to get date in format 12/26/2008

 Public Sub LabelUIDate()

        Dim TodayDay = Day(Today())

        Dim TodayMonth = Month(Today())

        Dim TodayYear = Year(Today())

        Dim TodayDate = TodayMonth & "/" & TodayDay & "/" & TodayYear

        'LabelDate.Visible = False

        LabelDate.Text = TodayDate

    End Sub