Obtenga un dígito, diez y cien código, amigos que lo necesitan pueden referirse a él.
Función Numbersplit (num) dim I, longitud longitud = len (num) para i = 1 a longitud Numbersplit = NumbersPlit & num mod 10 &, 'NUM = NUM/ 10' IT = Left (Numbersplit, Len (Numbersplit) -1) función final