Boa tarde!

Preciso muito da ajuda de vocês para resolver esta questão. Imagine que tenho um botão "+" para inserir uma caixa de texto. A primeira vez que o usuário clica ele insere uma caixa do texto com o texto "0", na próxima vez ele deve inserir uma caixa com o texto "1" e assim por diante. O certo é inserir sempre um número a mais do que o maior existente. Pois caso o usuário exclua alguns, continue na sequência correta. 

Eu não consegui fazer com que a macro pegue o maior valor das caixas de texto e some mais 1.

Para inserir a primeira caixa é muito fácil, eu utilizei o código abaixo:

Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text = 1