Using VBA to add digits togeather

[mchad]

Hello,

I am trying to create a function that will let me input a number, and the function will do the following:

1. Add the digits in that number togeather
2. Check if the resulting sum is a single digit (1-9), 11, or 22;
3. Return the number if the #2 is true
4. Start Back at #1 with the new number if #2 is false .

The number of digits will fluxuate. I have been trying to use an array nut I have been having trouble splitting the number into the array effectively.

 

[welshgasman]

I would be careful with using Integer as parameter type in this case, if your number is likely to increase in length?