Let's say you store your search pattern in a global text field: gText.
In a script
# find all records with text pattern stored in gText
Enter Find Mode
Set FIeld [YourTable::YourTextField; "*" & YourTable::gText & "*"]
Set error capture [on]
Set error capture [off]
If [ get ( foundcount ) > 0 /* at least one record found */]
Go to record[First]
# Isolate just the first record
Show all records
Show only omitted
show custome dialog ["No records found..."]
If the "first" such record is not the first record listed when the records are unsorted, then you'll need to include a sort step just before Go To Record, in order to make the desired record the first record in the found set.