Ntl-M, скрипт Ваш, чуть исправленный, внутри конструкция Select Case:
Case "ааа" : Sys.onRead "1"
замените "ааа" на нужные Вам строки, а "1" на нужные выходные данные.
End это не компонент, а окончание конструкций в VB.
Не исключено, что с форума копируется с ошибками - сравните, что есть в скрипте в HiAsm-е и что в моём предыдущем сообщении.

[size=-2]------ Добавлено в 18:40
Ntl-M, не пропадёте