Inprove code

I have a textarea control (named Editor) that contains a rich text of something like 30.000 characters long.
When a text contained in a textarea is passed to a string as you see below:
Dim s as string
s = Editor.StyledText.RTFData
The time spent in this operation is very important… many seconds.
Is there any trick in order to inprove reducing the procesing time ?