获取一个数字的个位、十位、百位的函数代码

function numbersplit(num)
dim i,length
length=len(num)
for i=1 to length
numbersplit=numbersplit & num mod 10 & "," '余数
num = num \ 10 '整除
next
numbersplit=left(numbersplit,len(numbersplit)-1)
end function