如何判断Textbox文本框输入的值是否可以转换为Double类型呢，并且要求小数位只保留2位

private sub textbox1_lostfocus()
    if trim(textbox1.text)<>"" then
        if not isnumeric(textbox1.text) then
            msgbox "请输入数值型数据!",48,"提示"
            textbox1.setfocus
        else
            textbox1.text=format(textbox1.text,"###0.00")
        end if
    end if
end sub

------解决方案--------------------
代码一个比一个长。。。。

自己写一个 IsDouble 的函数，函数里直接赋值给一个 double 类型的变量，出错就 false 。