Public Function Date2txt(ByVal dt As Date) As String
Dim txt As String, num As Integer
num = Day(dt)
Select Case num
Case 1, 21, 31
txt = "st "
Case 2, 22
txt = "nd "
Case 3, 23
txt = "rd "
Case 4 To 20, 24 To 30
txt = "th "
End Select
Date2txt = WeekdayName(Weekday(dt)) & "," & Day(dt) & txt & MonthName(Month(dt)) & " " & Year(dt)
End Function