Вопрос не очень понятен. Что надо то? Узнать, как описать массив a(j) ?
Если "да", тогда:
Могут помочь функции UpperBound и LowerBound плюс Help ...

Если надо понять, чего выбрал пользователь, тогда читай Help по State , ибо у тебя написан какой-то бред.

Help
Return value
Integer. Returns 1 if the item in listboxname identified by index is highlighted and 0 if it is not. If the index does not point to a valid item number, State returns -1. If any argument's value is NULL, State returns NULL.