Replace:
strResult = GetValue("The value to find", 6)

With
strResult = GetValue(YourUserForm.TextBox1.Text, 6)

or however your userform and .TextBox1 might be defined.

__________________
Greg Maxey
Please visit my web site at http://www.gregmaxey.com/