VB实现数字到中文金额的转换函数

Private Function NMoneyToSMoney ( NMoney As Variant )   As String
      If IsNumeric ( NMoney )     =   False Then
            NMoneyToSMoney   =   "不是数字类型"
            Exit Function
      End If
      Dim BasicDWString As String, BasicDW (   )   As String
      Dim MoneyDWString As String, MoneyDW (   )   As String
      Dim MoneyStr As String, ReturnStr As String, TempStr As String
      BasicDWString   =   "分,角,圆,拾,佰,仟,万,拾,佰,仟,亿,拾,佰,仟,万亿,兆,拾,佰,仟,万,亿"
      MoneyDWString   =   "零,壹,贰,叁,肆,伍,陆,柒,捌,玖"
      BasicDW   =   Split ( BasicDWString, "," ) 
      MoneyDW   =   Split ( MoneyDWString, "," ) 
      MoneyStr   =   Format ( NMoney, "0.00" ) 
      MoneyStr   =   Replace ( MoneyStr, ".", "" ) 
      StrLen   =   Len ( MoneyStr ) 
      ReturnStr   =   ""
      For X   =   0 To StrLen - 1
            TempStr   =   Mid ( MoneyStr, StrLen - X, 1 ) 
            ReturnStr   =   MoneyDW ( TempStr )   & BasicDW ( X )   & ReturnStr
      Next X
 &nb