Get a digit, ten, and hundred code, friends who need it can refer to it.
Function Numbersplit (NUM) Dim I, Length Length = Len (Num) for I = 1 to Length Numbersplit = Numbersplit & Num Mod 10 &, 'remaining Num = NUM / 10' IT = Left (Numbersplit, Len (Numbersplit) -1) End Function