<-- Previous || Up || Next -->

Number And Suffix Sample Function
String Numerics Class

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

Copyright 1996-1999 Entisoft
Entisoft Tools is a trademark of Entisoft.