1. Please examine the following code :-

Dim TextFind As String
Call Application.Dialogs(xlDialogFormulaFind).Show(Text Find, 2, 2, 1,
0, True, True)
MsgBox "TextFind = " & TextFind

2. It is in vain to store the text string (entered into the Find What
: text box of the built-in xlDialogFormulaFind) by using the argument
TextFind.

3. Please show the alternative means of capturing TextFind by using
VBA code.

4. Regards.