获取一个数字的个位、十位、百位

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