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

Increment String Sample Sub
String Numerics Class

Private Sub IncrementStringSample()
    ' Generate several samples of the IncrementString function.

    Dim strTemp As String

    Dim intTrial As Integer
    For intTrial = 1 To 128
        strTemp = IncrementString(strTemp, "A", "ABCD")
        Debug.Print strTemp & " ";
    Next intTrial

    Debug.Print
End Sub

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