关于INPUTBOX函数~~在线等！！！

我以前使用INPUTBOX函数给整型变量赋值总是出错。后来经高人指点，他跟我说用：
Do
St = InputBox("请输入位移次数：", "位移次数")
If St = "" Then Exit Sub
If IsNumeric(St) Then Exit Do
MsgBox "请输入数字！"
Loop
Num = Val(St)

便不会出错。
当我输入了单精度或双精度数值，程序会自动将其转换成整型。
如果我希望在弹出的对话框中只能输入整型数据，如果输入了单精度或双精度便提示请输入整数并重新输入。应该怎么改？
IsNumeric只能测试输入的数据是否为数值，无法具体到整型数值。难道还有测试函数能够测试输入的数据是否为整型数值么？？
希望各路大侠指点一二~~不胜感激~~~

InputBox函数对话框在哪?? inputbox函数 InputBox函数能否在服务器端执行，为什么？ 在Inputbox函数框中输入一个正整数, InputBox函数,函数值的数据类型是什么？ VB中 inputbox函数 的用法 vb InputBox函数与Print的用法 VB中inputbox函数的问题？ 从键盘上输入4个数，编写程序，通过Inputbox函数输入数据，在窗体上显示和及平均值 急！！！如何使用inputbox 函数和magbox函数