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

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

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

Решение задачи: «Подсчет повторяющихся значений в ячейке»

textual
                            Листинг программы 
                        
                            ActiveCell.Comment.Shape.ScaleWidth 3, 0