Function TextBoxControlText(oTextBox As Shape) As String
' Pass me a text box control
' I'll return the text in the text box
' See the Test subroutine below for a usage example

    ' safety precaution:
    If oTextBox.Type = msoOLEControlObject Then
        TextBoxControlText = oTextBox.OLEFormat.Object.Text
        TextBoxControlText = "This isn't a text control!  It's a Type " _
            & CStr(oTextBox.Type) & " shape."
    End If

End Function

Sub Test()
' Assumes you've selected the text box control in  edit mode

    MsgBox TextBoxControlText(ActiveWindow.Selection.ShapeRange(1))

End Sub