INPUTBOX问题
Public BL_shuliang As Integer
BL_shuliang = CInt(InputBox( "请输入要添加的药品数量 ", "提示 ", 0))
请问大家上面代码运行后，点取消，就会提示：

从字符串“”到类型“Integer”的转换无效。
请问哪里出错了？


[解决办法]
因为INPUTBOX按取消按钮时,仍会返回一个空值.
可以改为如下:
Public BL_shuliang As Integer
dim s as string
s=InputBox( "请输入要添加的药品数量 ", "提示 ", 0)

if s <> " " then
try
bl_shuliang=cint(s)
catch ex as exception
messagebox.show(ex.message)
end try
endif