Посчитать количество вхождений числа в строку и закрасить ячейку по результатам - VB

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

Записать в 1 строку 10 целых чисел из диапазона [-3;3]. Определить,сколько из этих элементов равны числу А (целое,вводимое с клавиатуры). Вывести найденное количество элементов в любую ячейку строки В (в пределах экрана), которую выделить зеленым цветом. Если элементов,равных числу А нет,то вывести число не равное нулю и закрасить синим цветом. А принадлежит [-3;3]

Решение задачи: «Посчитать количество вхождений числа в строку и закрасить ячейку по результатам»

textual
                            Листинг программы 
                        
                            Dim MyValue
MyValue = Int((6 * Rnd) + 1)    ' Возвращает случайное число от 1 до 6.