Private Function GetCardinal(ByVal vnValue As Long) As String
If vnValue >= 11 And vnValue <= 13 Then
GetCardinal = "th"
Else
Select Case (vnValue Mod 10)
Case 1
GetCardinal = "st"
Case 2
GetCardinal = "nd"
Case 3
GetCardinal = "rd"
Case Else
GetCardinal = "th"
End Select
End If
End Function