Get the function code of the units, tens and hundreds digits of a number

Get the code for the units, tens, and hundreds digits of a number. Friends who need it can refer to it. Copy the code code as follows:

FunctionNumberSplit(num)

Dim i, length

length=Len(num)

For i=1 To length

NumberSplit=NumberSplit & num mod 10 & , 'remainder

num = num / 10 'Divisible

Next

NumberSplit=Left(NumberSplit,Len(NumberSplit)-1)

End Function