vba小小问题求助各位大佬

1.想编一个循环排列，初始元素3个:1,2,3排列后
一阶 1 2 3(3个)
二阶11 12 13 21 22 23 31 32 33(9个)
三阶111 112 113 121 122 123 131 132 133……(27个)
四阶1111 1112 1113 1121 1122 1123……(81个)
五阶11111 11112 11113……(243个)
……
用变量i表示阶数进行循环。各位大佬能否帮忙实现？
2.我的想法是调用子函数自循环，可是需要随i变化的变量，但vba好像不能定义变化变量，比如要表示a1,a2,a3三个变量都为1，就不能表示如下
for i=1 to 3
"a"&i=1
next
也想过多维数组，都无法用变量i表示阶数进行循环
期待各位大佬帮忙，非常感谢！