Tambien puedes usar directamente las funciones como las siguientes para la ocasion....
CBool(expresión) 'convierte a boolean
CByte(expresión) '..byte
CCur(expresión) 'currency
CDate(expresión) 'fecha
CDbl(expresión) 'doble
CDec(expresión) 'decimal
CInt(expresión) 'entero
CLng(expresión) 'largo
CSng(expresión) 'single
CStr(expresión) 'string
CVar(expresión) 'variant
Saludos y suerte...
