人民币数字转大写汉字工具

Module ModConvertCurrency
    Public Function ConvertCurrency(ByVal str As String) As String
        str = str.ToString.Trim
        If Not CheckCurrency(str) Then
            Return ""
        End If
        Const CN_ZERO As String = "零"
        Const CN_ONE As String = "壹"
        Const CN_TWO As String = "贰"
        Const CN_THREE As String = "叁"
        Const CN_FOUR As String = "肆"
        Const CN_FIVE As String = "伍"
        Const CN_SIX As String = "陆"
        Const CN_SEVEN As String = "柒"
        Const CN_EIGHT As String = "捌"
        Const CN_NINE As String = "玖"
        Const CN_TEN As String = "拾"
        Const CN_HUNDRED As String = "佰"
        Const CN_THOUSAND As String = "仟"
        Const CN_TEN_THOUSAND As String = "万"
        Const CN_HUNDRED_MILLION As String = "亿"
        Const CN_DOLLAR As String = "元"
        Const CN_TEN_CENT As String = "角"
        Const CN_CENT As String = "分"
        Const CN_INTEGER As String = "整"
        '定义整数部分
        Dim strInt As String
        '定义小数部分
        Dim strDec As String = ""
        '分别保存整数和小数部分