FoxPro/Visual FoxPro - Buscar en una cadena

hola buenos dias queridos colegas
tengo una pregunta
como hago para extraer de esta cadena Ejemplo
var1="abcv(hola)badtt"
osea extraer lo que esta entre paréntesis
muchas gracias

A1 = at(')',var1)-1
?substr(var1,at('(',var1)+1,a1-at('(',var1))

Muchas Gracias

Buenas tardes Walter!

CLEAR
var1="abcv(hola)badtt"
lcBus="hola"
lcResul=SUBSTR(var1,ATC(lcBus,var1),LEN(lcBus))
? lcResul

Suerte
zarlu
Chetumal, Quintana Roo, México

gracias muy amable