Add these to the list to check out too...

 Code:
function Cbyte($val)
    dim $sc
    $sc = CreateObject("ScriptControl")
    $sc.language = "VBScript"
    $sc.addcode('by=cbyte(' + $val + ')')
    $sc.run
    $cbyte=$sc.codeobject.by
endfunction

function CBool($val)
    dim $sc
    $sc = CreateObject("ScriptControl")
    $sc.language = "VBScript"
    $sc.addcode('bool=cbool(' + $val + ')')
    $sc.run
    $cbool=$sc.codeobject.bool
endfunction