Нужное количество циклов внутри цикла - VBA

Формулировка задачи:

добрый вечер. в общем мне надо составить комбинацию

-значных цифр, из

- количество цифр которые не повторяются (Н-р: 12345 , 12354 и 53241 одно и тоже). Допустим нужно найти комбинацию не 3-х значных не повторяющихся цифр из 1,2,3,4,5,6,7,8:

Sub misol()
N=8
p=0
for i=1 to N
for j=1+i to N
for k=1+j to N
p=p+1
cells(p.1)=i & " | " & j & " | " & k
Next k
Next j
Next i
End Sub

как видно из кода, если поменяется количество цифр (пятизначные или двузначные) то нужно добавить или удалить одно из циклов. _________________________________________________________ В общем подскажите как сделать так, чтобы програмно создать M количество циклов?? Или другим способом решается эта задача. Заранее спасибо.

Решение задачи: «Нужное количество циклов внутри цикла»

textual
                            Листинг программы 
                        

                            Sub asd()
n = 7
m = 5
ReDim d(m - 1)
For i = 1 To m
  d(i - 1) = i
Next i
Do
  r = r + 1
  Cells(r, 1) = Join(d, "")
  i = m - 1
  While d(i) + m - i > n
    If i = 0 Then Exit Do
    i = i - 1
  Wend
  d(i) = d(i) + 1
  For i = i + 1 To m - 1
    d(i) = d(i - 1) + 1
  Next i
Loop
End Sub
                        