At about 11mins Rich mentions a Custom Function for adding ^st, ^nd, ^rd and ^th to a Date.

This was first mentioned in the Forum.

Function:

Function myOrdinal (D as Integer) as String
    Dim Suffix as String
    Select Case D
        Case 1, 21, 31: Suffix = "st"
        Case 2, 22: Suffix = "nd"
        Case 3, 23: Suffix = "rd"
        Case Else: Suffix = "th"
    End Select
    myOrdinal = D & Suffix
End Function

I've added it to my Row Number Tip too.