Move specific amount of (random) folders to another folder in VBA

Question

In this question, a user asked on how to copy 25 random files from a large amount of files in another folder using VBA.

My question goes in the same direction, but is