I don't have any sample that I can paste. If you want me to write the code for you, you will need to provide me with complete specifications (so far you haven't given any) and we will need to negotiate a price.
If you want to try to write it yourself, you'll need to use a Do loop and the Left(), Mid(), and Len() functions and possibly others. The Len() function will tell you how many characters the string contains so you will know how many iterations in your code loop. Left() and Mid() will let you pick up the current character and concatenate it into the string you are building.