vb 高手帮帮忙 这个能传值传址使用吗

这个就是按按钮 把text1中的钱分开 变成有几个100的几个50的几个20的等等 请问这个能不能简短一下 是不是太长了呢 谢谢 用传值还是传址 这个有点不懂呢

Private Sub Command1_Click()
Dim a As Long

a = Text1.Text
Text2.Text = a \ 100
a = a Mod 100

Text3.Text = a \ 50
a = a Mod 50

Text4.Text = a \ 20
a = a Mod 20

Text5.Text = a \ 10
a = a Mod 10

Text6.Text = a \ 5
a = a Mod 5

Text7.Text = a

End Sub

为什么我这个VB运行不来啊,各位高手帮帮忙 VB难题...高手帮帮忙!~~!~! 请VB高手帮帮忙！ VB高手进来帮帮忙 vb高手帮帮忙！ 各位VB高手帮帮忙 VB高手帮帮忙 VB高手帮帮忙呀 VB高手帮帮忙啊！！！！！！！！！！！！！！！！！！ VB高手帮帮忙啊~~