**********************************************************************************************************************************************
Private Sub CommandButton1_Click()
Dim strValue As String
'使用某个sheet中的控件,必须选中对应sheet,取得控件对象
strValue = Application.ActiveSheet.TextBox1.Value
MsgBox strValue
End Sub
**********************************************************************************************************************************************
结果: