Hallo MAT,
kannst du nicht die Funktion

count = Split(source, array, search)

nehmen, die ist genau dafür gemacht.