Attribute VB_Name = "cast_cVal"
'-------------------------------------------------------------------------------
'File         : cast_cVal.bas
'               Copyright mpl by ERB software
'               All rights reserved
'               http://wiki.yaslaw.info/dokuwiki/doku.php/vba/cast/cval
'Environment  : VBA 2010 +
'Version      : 1.0.0
'Name         : cVal
'Author       : Stefan Erb (ERS)
'History      : 18.08.2017 - ERS - Creation
'-------------------------------------------------------------------------------
Option Explicit

'/**
' * Es wird versucht, den Paramter in seine eigentlichen Typ zu wandeln. Gar mit Textausgaben oder parsen von SQL interessant
' * @example    cVal("Null") -> Null, cVal("True") -> -1
' * @param  Variant
' * @return Variant
' */
Private Function cVal(ByVal iValue As Variant) As Variant
On Error Resume Next
    Set cVal = iValue: cVal = iValue: cVal = eval(iValue)
End Function