Private Function NumberAndSuffixSample()
    ' Samples of the NumberAndSuffix function.

    Dim lngCur As Long
    For lngCur = 1 To 200
        Debug.Print RightJustifyFast(NumberAndSuffix(lngCur), 6);
        If lngCur Mod 10 = 0 Then Debug.Print
    Next lngCur
    Debug.Print
End Function