Private Sub SplitStringsSample()
    ' Sample of the SplitStrings function.

    Dim strOdd As String
    Dim strEvn As String
    
    Const strInput = "12345"

    Debug.Print "Input:  " & IllustrateDebug(strInput)
    Debug.Print "Result: " & SplitStrings(strOdd, strEvn, strInput)
    Debug.Print "Odd:    " & IllustrateDebug(strOdd)
    Debug.Print "Even:   " & IllustrateDebug(strEvn)
End Sub