求一个VB程序设计

编写一个SUB过程，该过程根据输入的工资数确定发给多少张一百元，五十元，十元，五元，一元，五角，一角，五分，一分的钞票。运行时，在窗体上用文本框输入工资额，按回车调用SUB过程计算各种面值的钞票各需多少，并将结果显示在窗体上（SUB过程只负责计算，不负责显示结果）

Dim a, b, c, d, e, f, g, h, i As Integer

Private Sub rmbCound(ByVal rmb As Double)
a = Int(rmb / 100)
b = Int((rmb - a * 100) / 50)
c = Int((rmb - a * 100 - b * 50) / 10)
d = Int((rmb - a * 100 - b * 50 - c * 10) / 5)
e = Int((rmb - a * 100 - b * 50 - c * 10 - d * 5) / 1)
f = Int((rmb - a * 100 - b * 50 - c * 10 - d * 5 - e * 1) / 0.5)
g = Int((rmb - a * 100 - b * 50 - c * 10 - d * 5 - e * 1 - f * 0.5) / 0.1)
h = Int((rmb - a * 100 - b * 50 - c * 10 - d * 5 - e * 1 - f * 0.5 - g * 0.1) / 0.05)
i = (rmb - a * 100 - b * 50 - c * 10 - d * 5 - e * 1 - f * 0.5 - g * 0.1 - h * 0.05) / 0.01
End Sub

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 And IsNumeric(Text1.Text) Then
Call rmbCound(Val(Text1.Text))
Print "100元[" & a & "]张 " & _
"50元[" & b & "]张 " & _