Question : Getting strings from textboxes

I am trying to use the following macro to list all the textboxes on a sheet together with their positions and their text strings. But I am failing on the text string part. Can someone tell me the correct syntax for getting this?

Saqib

Sub GETOBJECTS()
For Each Obj In ActiveSheet.Shapes
Select Case Obj.Type
Case msoTextBox
rn = rn + 1
Cells(rn, 1) = "TextBox"
Cells(rn, 2) = Obj.Left
Cells(rn, 3) = Obj.Top
Cells(rn, 4) = Obj.Width
Cells(rn, 5) = Obj.Height
Cells(rn, 6) = Obj.Characters.Text
End Select
Next Obj
End Sub

Answer : Getting strings from textboxes

This appears to work:

Cells(rn, 6) = Obj.TextFrame.Characters.Text