public function ChargeInt(byval ChargeNumber as String)as boolean
if not isNumberic(ChargeNumber) then
msgbox "请输入整数!"
exit function
end if
if CDBl(ChargeNumber)<0 then
msgbox "数据应为正数!"
exit function
end if
if ChargeNumber like "*.*[1-9]" then
ChargeInt = True
else
ChargeInt = False
end if
end function
你试下