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