Preciso fazer uma pirâmide invertida como no exemplo abaixo:

 

26457  ==> 2+6=8 / 6+4=10(1+0=1) / 4+5=9 / 5+7=12(1+2=3)

 8193

  913

   14

    5

 

Alguém poderia me ajudar em como fazer isto, sendo que os números iniciais não tem limite de caracteres (podem ser 30, 40, 50 digitos...) ?

    txtValor = "26457"
   
    Do While Len(Trim$(txtValor)) > 1
        dblNum1 = CDbl(txtValor)
        txtValor = ""
        For x = 1 To Len(Trim$(dblNum1)) - 1
            dblNum2 = CDbl(Mid$(Trim$(dblNum1), x, 1)) + CDbl(Mid$(Trim$(dblNum1), x + 1, 1))
            For y = 1 To Len(Trim$(dblNum2)) - 1
                dblNum2 = CDbl(Mid$(Trim$(dblNum2), y, 1)) + CDbl(Mid$(Trim$(dblNum2), y + 1, 1))
            Next
            txtValor = txtValor & dblNum2
        Next
    Loop

Super obrigado Waldir !!! Com algumas mudanças tá trabalhando exatamente como eu preciso !