'代码出处：http://blog.sina.com.cn/s/blog_3f39ffb50100bk8d.html
Text1.Text=CBool(X) ' 将X转换为"布尔"（Boolean）类型
Text1.Text=CByte(X) ' 将X转换为"字节"（Byte）类型
Text1.Text=CCur(X)  ' 将X转换为"金额"（Currency）类型
Text1.Text=CDate(X) ' 将X转换为"日期"（Date）类型
Text1.Text=CDbl(X)  ' 将X转换为"双精度"（Double）类型
Text1.Text=CInt(X)  ' 将X转换为"整型"（Integer）类型
Text1.Text=CLng(X)  ' 将X转换为"长整型"（Long）类型
Text1.Text=CSng(X)  ' 将X转换为"单精度"（Single）类型
Text1.Text=CStr(X)  ' 将X转换为"字符串"（String）类型
Text1.Text=Cvar(X)  ' 将X转换为"变体型"（Variant）类型
Text1.Text=CVErr(X) ' 将X转换为Error值