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