Private Sub CharacterEveryNthCharacterSample()
    ' Sample calls to the CharacterEveryNthCharacter function.

    Const strSample = "123456789ABCDEF"

    Debug.Print

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