vb中textbox1输入人民币数字textbox2出现大写的人民币带元角分

Private Sub Form_click()
Text2.Text = Rmb(Val(Text1.Text))
End Sub
Public Function Rmb(ByVal Je As Double) As String
Dim I As Long, K As Long, NC As String, chrNum As String
Dim a1 As String, a2 As String, a3 As String
Dim Zs As String
Dim Xs As String
NC = Trim(Format(Je, "##0.00"))
a1 = "仟佰拾万仟佰拾亿仟佰拾万仟佰拾元"
a2 = "角分"
a3 = "玖捌柒陆伍肆叁贰壹"
If NC = 0 Then Rmb = "零元整": Exit Function
Rmb = ""
Zs = Mid(NC, 1, (Len(NC) - 3))
Xs = Mid(NC, (Len(Zs) + 2), 2)
If Val(Xs) <> 0 Then
For I = Len(Xs) To 1 Step -1
chrNum = Mid(Xs, I, 1)
If chrNum <> 0 Then
Rmb = Mid(a2, I, 1) & Rmb
Rmb = Mid(a3, (Len(a3) - chrNum + 1), 1) & Rmb
Else
If I = 1 Then Rmb = "零" & Rmb

End If
Next