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