1、调试技巧
http://www.foxtable.com/webhelp/scr/1485.htm
2、如果要给数值列赋值,这样写
Dim str As String = "10mm"
msgbox(val(str))