vb数字转换大写汉字（不用函数的调用）

在一个窗体中添加两个文本框，分别是Text1，Text2，复制如下代码：

Private Sub Text1_Change()
Dim OutStr As String, MyStr As String, MyNum As Double
MyNum = Val(Text1)
MyStr = "零一二三四五六七八九"
If MyNum > 10 Or MyNum < 0 Then Exit Sub
Text2 = Mid(MyStr, MyNum + 1, 1)
End Sub

这样，当文本框1中的数值改变（0～9）时，文本框2的内容就是数字的大写。

PS：自己可以再进行补充，自动读出文本框1中的完整数值