Here is a function to convert an integer to an ordinal number
Function int2Ordinal(iValue As Integer) As String
Dim sReturnValue As String
Dim sLSD As String
sReturnValue = Str$(iValue)
sLSD = Right$(sReturnValue, 1)
If sLSD = "1" And (iValue < 10 Or iValue > 20) Then
sReturnValue = sReturnValue & "st"
ElseIf sLSD = "2" And (iValue < 10 Or iValue > 20) Then
sReturnValue = sReturnValue & "nd"
ElseIf sLSD = "3" And (iValue < 10 Or iValue > 20) Then
sReturnValue = sReturnValue & "rd"
Else
sReturnValue = sReturnValue & "th"
End If
Function = sReturnValue
End Function