Как выводить массив и количество повторяющихся элементов в vbs

Написать программу, которая будет определять количество повторяющихся элементов, в массиве с заданным размером. Для ввода данных использовать функцию InputBox, так же функцию преобразования CInt. Необходимо вывести исходный массив и количество повторяющихся элементов в текстовый файл, имя которого должно содержать дату.

Можете показать какой-нибудь рабочий код?