Public Function URmb(ByVal Money As Currency) As String
Dim i As Integer, strMoney As String
strMoney = StrReverse(Format(Money, "#.##") * 100)
If Len(strMoney) > 14 Then MsgBox "超出范围！": Exit Function
For i = 1 To Len(strMoney)
URmb = Mid$("零壹贰叁肆伍陆柒捌玖", Mid$(strMoney, i, 1) + 1, 1) & Mid$("分角元拾佰仟万拾佰仟亿拾佰仟", i, 1) & URmb
Next
End Function
