Возвращает количество элементов в коллекции или объект Dictionary. Только для чтения.

object.Count

Параметры
Count содержит число элементов в коллекции.

Пример
Следующий код иллюстрирует использование Count свойства.

Dim a, d, i             
Set d = CreateObject("Scripting.Dictionary")
d.Add "a", "Athens"     
d.Add "b", "Belgrade"
d.Add "c", "Cairo"
a = d.Keys            
For i = 0 To d.Count -1 
    Print a(i)         
Next
...