VB问题~输入数字，显示相应的英文~

要做一个VB，送积分~谢谢了谢谢了~

在TextBox里输入一个数字，（到百位数就行）
就会在ListBox里面显示相应的英文。

比如说
5--Five
30--Thirty
21--Twenty-One
120--Hundred & Twenty
234--Two Hundred & Thirty-Four
ljl88900 : 你的那个挺好的，可是里面显示“Left”和“Right”没有任何参数，是不是少了点儿什么？

搞错了~到十位数就行~~
下面是老师给的提示：
Hints : 89=》 8*10 +9 （89\10 89mod10 ）
Create two functions
Ones(n), Tens(n)
Text= Tens(n) & Ones(n)

'在窗体上加入控件text1,list1,command1，然后复制下面代码，运行，在text1内输入数字，点击command1按钮，list1就会显示出相应结果。

Option Explicit

Function Ones(MyStr As String) As String
Select Case MyStr
Case "0"
Ones = "Zero"
Case "1"
Ones = "One"
Case "2"
Ones = "Two"
Case "3"
Ones = "Three"
Case "4"
Ones = "Four"
Case "5"
Ones = "Five"
Case "6"
Ones = "Six"
Case "7"
Ones = "Seven"
Case "8"
Ones = "Eight"
Case "9"
Ones = "Nine"
End Select
End Function

Function Tens(MyStr As String) As String
Select Case MyStr
Case "10"
Tens = "Ten"
Case "11"
Tens = "eleven"
Case "12"
Tens = "Twelve"