求教vbstring的整数值

Question

vbEmpty    0 未初始化（默认） 
vbNull    1 不包含任何有效数据 
vbInteger    2 整型子类型 
vbLong    3 长整型子类型 
vbSingle    4 单精度子类型 
vbDouble    5 双精度子类型 
vbCurrency    6 货币子类型 
vbDate    7 日期子类型 
vbString    8 字符串子类型 
vbObject    9 对象 
vbError   10 错误子类型 
vbBoolean   11 Boolean 子类型 
vbVariant   12 Variant （仅用于变量数组） 
vbDataObject   13 数据访问对象 
vbDecimal   14 十进制子类型 
vbByte   17 字节子类型 
vbArray 8192 数组