请教CST VBA 字符串和数值的转化问题

以前用VBS在另一个软件里做过数字提取，但是具体的忘记了，刚才Baidu了一下，小编可以试试下面这个是否可以?
http://zhidao.baidu.com/question/287336399.html
Sub ptnum()
Dim a, b
a = InputBox("请输入字符串")   '输入字符窜
For i = 1 To Len(a)
If IsNumeric(Mid(a, i, 1)) Then b = b & Mid(a, i, 1)       '判断是否数字
Next
MsgBox b  '输出字符窜
End Sub

谢谢， 但是如果我要保留小数点呢?这段程序把小数点都去掉了啊?

呃。那我再百度下。

找到了， 直接判断是逗号就去掉，其他保留，
呵呵 方法比较蠢。
程序大致如下：
for i=1 to len(a)
if a（i)<>"," then
b=b&a(i)
end if

呵呵  反正这个问题解决了，谢谢各位老大的帮助啊