@dean999 Я как раз с этим человеком сейчас общаюсь :D Я знаю о чём идёт речь, но разбираться пока нет времени. Вы бы расписали более подробно задачу, на случай если уже кто то знает решение.
Дополню к ответу выше
Вместо джаваскриптовой функции в БАСе, удобней и лучше использовать функцию БАСа rand()
Т.е., в if условии прописать что-то вроде