VB数据类型转换函数