Obtenha o código para os dígitos das unidades, dezenas e centenas de um número. Amigos que precisarem dele podem consultá-lo. Copie o código do código da seguinte forma:
FunçãoNumberSplit(num)
Dim i, comprimento
comprimento=Len(num)
Para i=1 Para comprimento
NumberSplit=NumberSplit & num mod 10 & , 'resto
num = num / 10 'Divisível
Próximo
NumberSplit=Esquerda(NumberSplit,Len(NumberSplit)-1)
Função final