VB text输入后问题

谁能帮我设计这样的VB代码：在text中输完如“0.”  “0005.”  “5.”  “0000”   “0005”这类不规范的数字后，用Text1_LostFocus来处理成常规数字，“0”  “5”   “0”   “5”，我不知道用什么函数，求高手指点，代码越全越好。谢谢！

追问：同学，你进错教室了。。。

答案：如果是做计算器的话
Private Sub Text1_LostFocus()
 Dim num As String
 num = Val(Text1.Text)
 Text1.Text = num
End Sub

其他：问题补充：我是在text1.text中直接输入一个 8位的数字的话，len(text1.EXCEL复制出来的话 可能在后面会多个 CHR(9)之类的 看不到的东西在里面 text1=val(text1) 用format 函数，

Format函数 

返回 Variant (String)，其中含有一个表达式，它是根据格式表达式中的指令来格式化的。

语法

Format(expression[, format[, firstdayofweek[, firstweekofyear]]])

Format 函数的语法具有下面几个部分：

部分 说明 
expression 必要参数。任何有效的表达式。 
format 可选参数。有效的命名表达式或用户自定义格式表达式。 
firstdayofweek 可选参数。常数，表示一星期的第一天。 
firstweekofyear 可选参数。常数，表示一年的第一周。 

上一个：请问VB如何使窗体上的关闭（叉叉）按钮无效，最大，最小化按钮无效化我会的。
下一个：VB高手请进，判断listview是否有滚动条！