VBA 用inputbox函数 实现判断输入的数据是否为1到5之间的整数

如题，注意是用inputbox函数，不是application.inputbox，判断的时候只要是字符或者越界的数字或者是非整数都统一提示成不在范围内即可。。。。
因为inputbox返回的统一都是string类型数据，虽然说可以和数字直接比较。。但是还是比较棘手，因本人VBA方面学识浅薄。。。还望大神大侠帮帮小弟。。。多谢啦啊。。。。。
我要的是一段代码如何判断inputbox函数采集到的数据是否在1到5之间并且是整数。。。不是对inputbox函数有不解。是想用inputbox函数又想能够成功判断他返回的数据-即使是代表数字的字符 是否是1到5之间的整数。。。

String 类型\r\n在一对话框来中显示提示，等待用户输入正文或按下按钮，并返回包含文本框内容的 String。\r\n如果用户单击 Cancel，则此函数返回一个长度为零的字符串 ("")。