actually, explicit and novarsinstrings care-free is more precise.
and the code could be (reducing the need for dim ):
Code:

Function Const($Constant,$Value)

   exit Execute('Function ' + $Constant + ' $' + $Constant + '=' + $Value + ' EndFunction')

EndFunction
_________________________
!

download KiXnet