Re-Arrange DataSet Elements Into All Possible Sets; Dynamic

With a data array use its elements to create, fixed length sets. Where elements can be re-used. Print all sets.

Have brute-forced a three item set with fixed loops. Need to dynamically account for any string, within reason, for sets containing n items.

have tried many different algorithms.

Sub ADataSetReArange()
'Standard module code, like: Module1.
Dim myStrArray() As Variant, myDataArray() As Variant
Dim p1 As Byte, p2 As Byte, p3 As Byte
Dim p%, c1%, c2%, myStrLength%
Dim n&, g&, r&
Dim myStr$, x$, y$, z$

On Error GoTo myErr
'Build data array!
myStr = InputBox("Enter your DataSet string, of any three characters:", "Enter Your Data!", "ABC")
myStrLength = Len(myStr)

ReDim Preserve myStrArray(0 To myStrLength - 1)
For p = 0 To (myStrLength - 1): myStrArray(p) = Mid(UCase(myStr), p + 1, 1): Next p
With ActiveSheet.Columns("A:B"): .ClearContents: .HorizontalAlignment = xlCenter: End With

ReDim myDataArray(1 To Rows.Count, 1 To 1)
'Build results array!
c1 = 1: c2 = 2

For p1 = 0 To 2
x = myStrArray(p1)