Copie o texto de uma "Caixa de texto" básica e cole-o em uma célula

Estou tentando acessar o texto dentro de "Caixa de texto 1", copie-o e cole-o em um intervalo a partir de A37.

ATUALIZAÇÃO : as caixas de texto em questão são caixas de texto simples que foram inseridas usando: Guia Inserir> botão Caixa de texto.

Abaixo está um monte de coisas que estou experimentando. Não consigo encontrar o caminho para chegar ao texto e copiá-lo. Alguma ideia?

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

Isso funciona quando eu tento:

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

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