How to modify VB code?

Good morning,
i would realy appreciate your assistance to to change or modify vb code please.

Please Login or Register  to view this content.

Code result Expected Result
12379 1,2,3,7,9
12348 1,2,3,4,8
12457 1,2,4,5,7
12569 1,2,5,6,9
12678 1,2,6,7,8
13469 1,3,4,6,9
13567 1,3,5,6,7
13589 1,3,5,8,9
14568 1,4,5,6,8
14789 1,4,7,8,9
23456 2,3,4,5,6
23578 2,3,5,7,8
23689 2,3,6,8,9
24589 2,4,5,8,9
24679 2,4,6,7,9
34579 3,4,5,7,9
34678 3,4,6,7,8
56789 5,6,7,8,9

thank you
sem

Hi protonLeah,
thanks for your time,much appreciated.
when i run the code i need the numbers to be separated by comma at the end result, like in my post #1.
Thanks
sem