字符型数字的格式显示与掩码输入

写个自定义函数，插入分割符不就完事了。

function GetText(str as string) as string

    dim s as string

    dim i as long

    s="00"

    for i=1 to len(str)/2-1

        s=s & "-00"

    next

    GetText=format(str,s)

end function