Lægge 1 integer sammen

Jeg har en integer der skal lægges sammen på følgende måde:

Dim navn as Integer
dim nynavn as Integer
navn = 1234
nynavn = (1+2+3+4)

Men skulle gerne have det lavet sådan at hvis navn ændre sig til 456 så er nynavn = (4+5+6)

Nogen der har en løsning ?

/Tubber