求一个转换函数

Question

有a,b两个变量，变量的类型不知道，有没有一个函数可以自动根据b变量的类型将a变量转换成跟b一样类型的变量？记得在哪本书上看过有的，可现在怎么也想不起来了，跪求啊

Answer 1

VB6没有这样的函数，判断变量的类型用VarType函数，类型转换函数就多了，根据下面列出的资料自己可以写一个自动函数。 
VarType 函数
      返回一个 Integer，指出变量的子类型。语法VarType(varname)必要的 varname 参数是一个 Variant，包含用户定义类型变量之外的任何变量。返回值常数         值       描述 
vbEmpty     0      Empty（未初始化） 
vbNull      1      Null（无有效数据） 
vbInteger   2      整数 
vbLong      3      长整数 
vbSingle    4      单精度浮点数 
vbDouble    5      双精度浮点数 
vbCurrency  6      货币值 
vbDate      7      日期 
vbString    8      字符串 
vbObject    9      对象 
vbError     10     错误值 
vbBoolean   11     布尔值 
vbVariant   12     Variant（只与变体中的数组一起使用） 
vbDataObject 13    数据访问对象 
vbDecimal   14     十进制值 
vbByte      17     位值 
vbUserDefinedType 36 包含用户定义类型的变量 
vbArray     8192   数组 
注意 这些常数是由 Visual Basic 为应用程序指定的。这些名称可以在程序代码中到处使用，以代替实际值。说明VarType 函数自身从不对 vbArray 返回值。VarType 总是要加上一些其他值来指出一个具体类型的数组。常数 vbVariant 只与 vbArray 一起返回，以表明 VarType 函数的参数是一个 Variant 类型的数组。例如，对一个整数数组的返回值是 vbInteger + vbArray，或 8194。如果一个对象有缺省属性，则 VarType (object) 返回对象缺省属性的类型。
类型转换函数：
CBool(expression)CByte(expression)CCur(expression)CDate(expression)CDbl(expression)CDec(expression)CInt(expression)CLng(expression)CSng(expression)CStr(expression)CVar(expression)CStr(expression)