请教如何去除小写数字转大写中间的小数点

tony_wy

请教如何去除小写数字转大写中间的小数点
昨天刚有前辈教了怎么转换,当时没注意，现在发现中间的小数点还在,这样打印的时候不能对齐,有什么办法能不显示这个小数点吗?

贴上昨天前面教的代码:
Public Function Num2Char(x As String) As String
For I = 0 To 9
x = Replace(x, I, Mid$("零壹贰叁肆伍陆柒捌玖", I + 1, 1))
Next I
Num2Char = x
End Function

todaynew

请参见《套打》一文。