I am using following code to copy content of TextBox to Cell

ActiveSheet.Shapes("Text Box 9").Select
TempText = Selection.Characters.Text
Range("A21").Select
ActiveCell.FormulaR1C1 = TempText

But when i do a message
MsgBox TempText

It does not contain all the text which Text Box has it gets cut off after
abut 255 characters.

Any help is appreciated.