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

Increment String Within Character Set Sample Sub
String Numerics Class

Private Sub IncrementStringWithinCharacterSetSample()
    ' Sample of the IncrementStringWithinCharacterSet function.

    Dim strTemp As String

    Dim intTrial As Integer
    For intTrial = 1 To 256

        strTemp = IncrementStringWithinCharacterSet(strTemp, "0123")
        Debug.Print strTemp & " ";
    Next intTrial

    Debug.Print
End Sub

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