Получить текст в скобках - QBasic

Формулировка задачи:

В заданном тексте

имеется часть, заключенная в скобки. Образовать новую переменную, в которую записана часть, содержащаяся в скобках Помогите пожалуйста

Решение задачи: «Получить текст в скобках»

Листинг программы

DIM X AS STRING
DIM Y AS STRING
DIM a AS INTEGER
DIM b AS INTEGER
Y = ""
X = "lalalala papapa (kokoko) kukuku!"
a = INSTR(X,"(")
b = INSTR(X,")")
Y = MID$( X,a+1,b-a-1)
PRINT Y

Объяснение кода листинга программы

Объявляются переменные X, Y, a, b типа STRING и INTEGER соответственно.
Переменной Y присваивается пустая строка.
Переменной X присваивается строка lalalala papapa (kokoko) kukuku!.
Переменным a присваивается значение функции INSTR, которая ищет первое вхождение символа ( в строке X.
Переменной b присваивается значение функции INSTR, которая ищет первое вхождение символа ) в строке X.
Переменной Y присваивается значение функции MID$, которая возвращает подстроку с X, начиная с позиции a+1 и до b-a-1 символов.
Выводится значение переменной Y.