我想要在文件中搜寻字串，所以我用了
Dim namesearch3 As String
namesearch3 = TextBox2.Text
Dim search As Range
Set search = Worksheets("服务对象").Range("B" &
Rows.Count).Find(what:=namesearch3)
search.Select
但我在编辑模式中执行，可以很顺利地从textbox2中找到文件中的资料，并且选取相对应
的储存格，但是当我尝试用EXCEL的按钮去设定userform.show跑出来后输入资料，却显示
没有设定物件变量或with区块变量
请问有什么办法可以解决吗?

http://i.imgur.com/qcPWDuI.png 改成这样，试试看https://goo.gl/kBxz0i Dropbox

建议尽量打完整，ex: userform1.textbox2.value