VB编程 进啊 加分

你一定要加我分啊
下面只能 在万里面数字进行判断，要在万以外，只要适当修改既可
先在窗体放一个TEXT控件（这个会的哦）
在放一个按纽控件，名字为Command1，点这个，将诉你这是什么数字
开始了：(将下面复制既可）
private sub command1_click()'当在TEXT输入数字后点饥COMMAND1时
if val(text1)=0 then
msgbox "您输入的不是数字",vbokonly,"你是白菜"
exit sub
end if
dim Gewei as string,Baiwei as string ,Qianwei as string
dim Wanwei as string
gewei="个位:[" + right(text1,1)+"]"
'开始记录百位
if len(text1)>=2 then
dim lsbai as string
lsbai=right(text1.text,2)
baiwei=="百位:[" + left(lsbai,1)+"]"
end if

'开始记录千位
if len(text1)>=3 then
dim lsqian as string
lsqian=right(text1.text,3)
qianwei=="千位:[" + left(lsqian,1)+"]"
end if

'开始记录万位
if len(text1)>=4 then
dim lswan as string
lswan=right(text1.text,4)
wanwei=="万位:[" + left(lswan,1)+"]"
end