请那位高手帮我一个忙？用vb编写一个人民币大小写转换的程序，最好是把源文件打包发上来

'窗体上有 TEXT1,TEXT2,COMMAND1 三个控件
Option Explicit
Const strRMB_UpcaseNumeric = "零壹贰叁肆伍陆柒捌玖"
Const strRMB_Upcase1 = "元拾佰仟"
Const strRMB_Upcase2 = "元万亿"
Const strRMB_Upcase3 = "角分厘"

Function GetRMB_Upcase(pricexin)
Dim str, curNumUp, num1, num2, price, pricex, testFlag, flagF, flag0, flag4, curNum, len1, len2, i

pricex = CCur(pricexin)
If pricex < 0 Then
price = 0 - pricex
flagF = 1
Else
price = pricex
flagF = 0
End If

'整数
num1 = CStr(Fix(price))
len1 = Len(num1)
'小数
num2 = Mid(FormatNumber((price - Fix(price)), 3, vbTrue), 3)
len2 = Len(num2)

str = ""
flag4 = 0
flag0 = 0
For i = 1 To len1
curNum = CInt(Mid(num1, i, 1))
curNumUp = Mid(strRMB_UpcaseNumer