Private Sub StringEveryNthCharacterSample()
    ' Sample calls to the StringEveryNthCharacter function.

    Const strSample = "123456789ABCDEF"

    Debug.Print

    Dim intTruncate As Integer
    For intTruncate = 0 To 1
        Dim intLength As Integer
        For intLength = 1 To 3
            Dim intStart As Integer
            For intStart = 1 To 3
                Dim intStep As Integer
                For intStep = 1 To 3
                    Debug.Print "StringEveryNthCharacter(""" & strSample & """, " & intStart & ", ";
                    Debug.Print intLength & ", " & intStep & ", " & intTruncate & ") = ";
                    Debug.Print IllustrateValue(StringEveryNthCharacter(strSample, intStart, intLength, intStep, intTruncate))
                Next intStep
            Next intStart
        Next intLength
    Next intTruncate
End Sub