Sub test2()

    MsgBox ActiveSheet.Shapes.Range(Array("TextBox 1")).TextFrame2.TextRange.Characters.Text
    MsgBox ActiveSheet.Shapes.Range(Array("TextBox 3")).TextFrame2.TextRange.Characters.Text
    
End Sub

環境によって異なると思いますので、マクロの記録機能を使って、
記録を開始し、シート上のテキストボックスを選択し、文字を書いてみると、

    ActiveSheet.Shapes.Range(Array("TextBox 1")).Select
    Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text = "入力文字"

のような部分がありますので、この2行を繋げて書いています

ActiveSheet.Shapes.Range(Array("TextBox 1")).TextFrame2.TextRange.Characters.Text = "入力文字"