Just guessing, but the repeated addition of individual digits might be:

Sub Demo()
Dim c, ans
c = 49 '13 -4
ans = ((c - 1) Mod 9) + 1

c = 123 '6
ans = ((c - 1) Mod 9) + 1
End Sub

--
HTH :)
Dana DeLouis
Windows XP & Excel 2007


"Paul Black" wrote in message
oups.com...
Hi everyone,

The following works in Excel, how can I translate ...

=1+MOD(INT(B19/10)+MOD(B19,10)-1,9)

... into VBA (purely VBA NOT Excel) and use "C" ("C" is a variable
used in a For ... Next loop) instead of "B19" please.

I have ...

VariableName = C Mod 10 + Int(C / 10)

... so far but it is NOT giving me the correct answer.
So, for example, if "C" = 49 then the above would give 4 + 9 = 13. I
want it to go one step further and also do 1 + 3 = 4.
I need to amend the above to also ADD the two numbers together, ALL in
one line please.

Thanks in Advance.
All the Best.
Paul