Помогите подправить код VBA

Sub Макрос1()
'
' Макрос1 Макрос'
'
ActiveDocument.MailMerge.DataSource.FindRecord FindText:="10", Field:= _
"Номер_заявки"
ShowVisualBasicEditor = True
End Sub

Все чего мне нужно это заменить FindText:="10"
на FindText:=Textbox
чтобы сделать значение задаваемое на поиск
переменным
и чтобы пользователь мог задавать его сам при запуске макроса

но я не могу задать переменную со значением TextBox

пожалуйста помогите задать такую переменную

и еще
было бы шикарно если бы этот макрос запускался сам сразу после загрузки файла

ВСЕ НЕ НАДО САМ РАЗОБРАЛСЯ !!!