ごめん確認したけどActiveXじゃないフォームコントロールのボタンだと
シートモジュールに書いても無理だったわ。
標準モジュールに以下のとおりやると動く

Sub ボタン1_Click()
MsgBox Worksheets(1).TextBoxes("txt").Text
End Sub

ワークシート1枚なのが前提だから調整してね。