Speed up code with a factor 1000 using string buffering!

The purpose of this code is to prevent performance leak when repeatingly appending text to a string "the normal way" eg. string1 = string1 & "text". By using stringbuffering you allocate a large ammount of zero-bytes to your string, and then uses the mid function to insert the text you want to append. The biggest gain by using stringbuffering is that you speed ud your code by a factor 1000 but it's allso harder to get your code to crash with a "Out of memory" error (IF YOU LIKE THE CODE, PLEASE VOTE!)