金额数值小写转大写函数

刚写的一个函数,但只能对"亿"以下的数值有效.如果超过Long类型的数值范围则转换会出错!!!!
函数直接使用ChangeMoney(数值)即可!!得到的则是转换后的大写数额

以下是第一次写的：对0不起隐藏作用
<%
Response.Write(ChangeMoney(235))

Function ChangeMoney(sMoney)
On Error Resume Next
Dim sTo
Dim iInt,iMod
'取得整数
sMoney=sMoney / 1
If Err.Number<>0 Then
? ?Response.Write "数值太大!!不能转换!!"
? ?Response.End
End If
iInt=Len(sMoney)
If iInt>5 Then ? ?'超过万
? ?iMod=iInt-4
? ?sTo=ChangeTo(sMoney,iMod,1)
? ?iMod=4
? ?sTo=sTo&"万"
? ?sTo=sTo&ChangeTo(sMoney,iMod,0)&"元整"
Else
? ?sTo=ChangeTo(sMoney,iInt,0)&"元整"
End iF
ChangeMoney=sTo
End Function

Function ChangeTo(sMoney,iNum,iTo)
? ?Dim sTr
? ?Do While iNum>0
? ? ? sTr=sTr&GetMoney(sMoney,iNum,iTo)
? ? ? iNum=iNum-1 ?
? ?Loop
? ?ChangeTo=sTr
End Function

Function GetMoney(sMoney,iNum,iTo)
? ?Dim sMen,sStr,iLen
? ?iL