Copie el texto de un "cuadro de texto" básico y péguelo en una celda

Estoy tratando de acceder al texto dentro del "Cuadro de texto 1", copiarlo y luego pegarlo en un rango a partir de A37.

ACTUALIZACIÓN : los cuadros de texto en cuestión son cuadros de texto simples que se han insertado usando: Insertar pestaña> botón Cuadro de texto.

A continuación hay un montón de cosas con las que estoy experimentando. Parece que no puedo encontrar la manera de llegar al texto y copiarlo. ¿Algunas ideas?

Sub textbox()

    Dim txBox As Shape
    Set txBox = ActiveSheet.Shapes("Text Box 1")
    'shpTextBox.selStart = 0
    'shpTextBox.SelLength = Len(shpTextBox.Text)

    txBox.Select
    txBox.TextFrame.Characters.Text
    Range("A37").Value = shpTextBox.Value    

End Sub

Esto funciona cuando lo intento:

Dim txBox As Shape
Set txBox = ActiveSheet.Shapes("Text Box 1")

Range("A37").Value = txBox.TextFrame.Characters.Text