Just a comment: Richtextboxes use variable-length String, not fixed length. How did you declare your string?

Dim a as String (variable-length) 10 bytes + string length 0 to approximately 2 billion
Dim a as String*65535 (fixed-length) Length of string 1 to approximately 65,400