Подсчет повторяющихся значений в ячейке - VBA

Всем здрасьте. Помогите, пожалуйста, реализовать макрос последовательного (с конца) подсчета нолей в активной ячейке и создания в этой ячейке примечания с результатом подсчета. Примерно должно получиться такое: в активной ячейке находятся значения вида 00000001000011000000111100000011111100000001000100000000000100000100101100 после запуска макроса должно создаваться примечание вида (7)1(4)11(6)1111(6)111111(7)1(3)1(11)1(5)1(2)1(1)11(2)