回数は、数学の組み合わせでわかるよ。
7*8*8*8*8*8*8 = 1,835,008
7*7*6*5*4*3*2 = 　 35,280

"01234567"から使った文字を次々と除いていくのに、LeftとMidを使う。

それにしても、結果を strBuf = strBuf & 〜 & vbCrLf とかしなくてよかったね。
これやったら、30分以上かかる(笑)。