Извлечение части данных из одной ячейки макросом - VBA

Формулировка задачи:

Здравствуйте. Надо извлечь несколько данных находящихся в одной ячейке на разных позициях, не знаю как лучше объяснить:

Арктикул: 5177 Цвет:белый DEWSPO FOIL, PRIN тиси Рост: 134-164 Наличие: в наличии 950.00 рублей Арктикул: 5177 Цвет:серебро DEWSPO FOIL, PRIN тиси Рост: 134-164 Наличие: в наличии 950.00 рублей Арктикул: 5177 Цвет: голубой

Мне нужно, только названия цветов (белый, серебро, голубой)перенести в другую ячейку, желательно что бы они, были сразу через запятую или точку с запятой.

Решение задачи: «Извлечение части данных из одной ячейки макросом»

textual
                            Листинг программы 
                        

                             Function uuu(st As String)
     With CreateObject("vbscript.regexp")
     .Global = True
     .IgnoreCase = True
     .Pattern = "[A-Я]{4}\-[А-Я]{5,7}"
      uuu = .Execute(st)(0).Value
   End With
End Function
                        