金额转换中文大写的VBA实现

今天有同事要找金额转换中文大写的VBA实现，找了下网上的代码，竟然大部分的VBA实现都有各种问题。还好以前写某个项目时做RDLC报表时写了个VBA实现，EXCEL和ACCESS都可以用，贴在网上，自己以后也可以用。

 

Function num2cn(num As String) As String
    If IsNumeric(num) = False Or num = "" Then
        num2cn = num
        Exit Function
    End If
    Dim s1, s2, sin, resultStr, nAmount As String
    s1 = "零壹贰叁肆伍陆柒捌玖"
    s2 = "亿仟佰拾万仟佰拾亿仟佰拾万仟佰拾元角分"
   
    nAmount = Trim(Str(Val(num) * 100))
    Dim numLength As Integer
    numLength = Len(Trim(Str(nAmount)))

    Dim useStr As String
    useStr = Mid(s2, (Le