INPUTBOX有关问题

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