任意输入一个0到9999之间的整数,判断是否是整数

这个是判断几位数的

dim i as integer
i = inputbox("请输入一个在0到9999之间的数","请输入")
if i > 9999 or i < 0 then
msgbox "数字无效!"
elseif i >= 1000 then
msgbox "数字是 4 位数！"
elseif i >= 100 then
msgbox "数字是 3 位数！"
elseif i >= 10 then
msgbox "数字是 2 位数！"
elseif i >= 0 then
msgbox "数字是 1 位数！"
end if

以上顺序不能颠倒 否则会逻辑出错

判断是不是整数

dim i as string
i = inputbox("请输入一个在0到9999之间的数","请输入")
if instr(i, ".") = 0 then
msgbox "这个数是整数！"
else
msgbox "这个数不是整数"
end if

任意输入一个0到9999之间的整数,判断是否是整数..
逻辑有问题？ 按照题目的意思：
Dim i as single
i = inputbox("input","number: 0 to 9999")
if i > 9999 or i < 0 then
msgbox "数字无效!"
elseif int(i) = i then
msgbox "是整数！"
else
m