Помогите пожалуйста! Дана последовательность чисел. Узнать, сколько раз в ней встречается

Последовательность чем заканчивается? Или количество частей заранее задаётся?

Sub maxZn()

'наполнение массива 
 Dim mas(20) 
S = "" 
Randomize 
For i = 1 To 20   
mas(i) = Round(Rnd(100) * 100)   
 S = S + Str(mas(i)) + "," 
 Next i

'поиск максимального числа и количества его повторений   
qty = 1 
 max = mas(1) 'предполагаем, что максимальное число в первом элементе массива   

For i = 2 To 20   

If mas(i) = max Then     
qty = qty + 1   
End If   

If mas(i) gt; max Then     
 max = mas(i)     
qty = 1   
 End If 
 Next i    
 MsgBox "последовательность чисел " + S 
MsgBox "наибольшее число " + Str(max) + "число повторений " + Str(qty)  
End Sub

Sub test() 
 Call maxZnEnd
 Sub