假如i 是未知的类型，然后我IF如果i是整型就运行下面。 怎么写判断if那里 如何将i判断是否为整形

Question

假如i 是未知的类型，然后我IF如果i是整型就运行下面。
  怎么写判断if那里
如何将i判断是否为整形
 
'--------------------------------------------------------
我用来十进制转换二进制的，

Answer 1

if vartype(x)=vbInteger then
'执行内容
end if

Answer 2

转化成 Variant 
检查VarType

Answer 3

加入用户输入数储存在i里面 i = i/2 后   我想判断i的结果为什么类型 如果是整型执行以下句子。、    

Answer 4

如果 i 不是 Variant，那么 i 是什么类型，数据就是什么类型。VB 在变量赋值时会自动换转类型。如果 i 是 Variant 类型，则可以通过 VarType(i) 取得其类型：VarType 函数返回下列值：常数    值 描述
vbEmpty        0 Empty（未初始化）
vbNull         1 Null（无有效数据）
vbInteger      2 整数
vbLong         3 长整数
vbSingle       4 单精度浮点数
vbDouble       5 双精度浮点数
vbCurrency     6 货币
vbDate         7 日期
vbString       8 字符串
vbObject       9 Automation 对象
vbError       10 错误
vbBoolean     11 Boolean
vbVariant     12 Variant（只和变量数组一起使用）
vbDataObject  13 数据访问对象
vbByte        17 字节
vbArray     8192     数组