Суть такова, я разбиваю слово на массив слов по разделителю /, заполняю коллекцию partsWord этими значениями Но у меня есть коллекция groups, которая должна хранить коллекции partsWords, и это никак не получается сделать...
Dim variants As New Collection
Dim groups As Collection
...
Set groups = New Collection
For Each word In words
Set variants = New Collection
partsWord = Split(word, "/")
For Each part In partsWord
variants.Add (part)
Next
groups.Add (variants) 'не получается
Next