Consideri il numero come una stringa..quindi utilizzi un accumulatore per sommare i singoli caratteri del tuo numero-stringa..più o meno così
dim num as string
for i = 1 to len(num)
num = num + mid(num,i,1)
next i
non so se vbscript è uguale..
La NOSTRA ignoranza è il LORO potere